Предмет: Информатика,
автор: danikfler
номер 1 и 2 пожалуйста
Приложения:


Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Математика,
автор: vivo10
Предмет: Физика,
автор: ttad06
Предмет: Английский язык,
автор: dikaloroman8872
Предмет: Алгебра,
автор: dfdfdff2014
Предмет: Математика,
автор: kisa02041936