Задание:
Даны два целых числа а, в определить являются ли они четными
Решение:
Паскальprogram m1; uses crt; var a,b: integer; beginwrite ('Введите число a: '); readln (a); write ('Введите число b: '); readln (b); if (a mod 2=0) then writeln ('Число a четное! ') else writeln ('Число a нечетное! '); if (b mod 2=0) then writeln ('Число b четное! ') else writeln ('Число b нечетное! '); end.
Знаете другой ответ?