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

Question

Генриетта

8 ноября, 06:54

+4

Ответы (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.