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

Question

Савёл

20 июля, 16:01

+1

Ответы (2)

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

Аглая · Answer 1

Var a:integer;

begin;

readln (a) ;

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

end.

Вадиша · Answer 2

Var a:integer;

begin

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

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

end.