Написать программу четности и нечётности числа. На языке Паскаль

Question

Сергей

27 сентября, 07:17

+1

Ответы (2)

Знаешь ответ?

Борюся · Answer 1

Var a:integer;

begin

writeln ('введите число'); readln (a);

if (a mod 2=0) then writeln ('четно') else writeln ('нечетно');

end.

Костюня · Answer 2

Var a:integer;

begin;

readln (a);

if odd (a) = true then writeln ('Нечётное') else writeln ('Чётное');

end.