Предмет: Информатика,
автор: Bristel
решите все задания по паскалю ABC пожалуйста очень надо
Приложения:
Ответы
Автор ответа:
0
№2.
Program chisla;
Uses crt;
Var a: longint;
Begin ClrScr;
Writeln ('введи число');
Readln (a);
If a mod 2 = 0 then
begin
writeln (a, '-чётное число');
end
else
writeln (a, '-нечётное число');
end.
Интересные вопросы
Предмет: Английский язык,
автор: volodamelnik49s1ngle
Предмет: Математика,
автор: ivakh2008
Предмет: Физика,
автор: zjasddhg
Предмет: География,
автор: Аноним
Предмет: Химия,
автор: atatatata