Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад