номер 1 и 2 пожалуйста

+ 0 -

Lemax07

08 нояб. 2016 г., 10:11:31 (7 лет назад)

1)
var a :integer;
begin
   writeln('В каком году основан Минск?');
   read (a);
   if a=1067 then writeln('Верно') else writeln('Вы ошиблись');
end.
2)
var a :integer;
begin
   writeln('Введите число');
   read (a);
   if a mod 2 = 0 then writeln('Нет') else writeln('Да');
end.

+ 0 -

Hubashka

08 нояб. 2016 г., 12:55:09 (7 лет назад)

var
  n:integer;

begin
  Write('В каком году основан Минск? (1067, 993, 1147): ');
  Readln(n);
  if n=1067 then Writeln('Верно')
  else Writeln('Вы ошиблись')
end.

Тестовое решение:
В каком году основан Минск? (1067, 993, 1147): 1067
Верно
****************************************
var
  n:integer;

begin
  Write('Введите целое положительное число: ');
  Readln(n);
  if (n mod 2 =1) then Writeln('Да') else Writeln('Нет')
end.

Тестовое решение:
Введите целое положительное число: 8
Нет