Форум "Алгоритмы вокруг нас"

Алгоритм ''Чётность числа''

 
 
Фото Посунько Никита Олександрович
Алгоритм ''Чётность числа''
Автор Посунько Никита Олександрович - 9 листопад 2017, четвер, 21:16
 

var a:integer;

begin

readln(a);

if a mod 2 = 0 then

writeln(a,' чётное число)

else

writeln(a,' не чётное число)

end.

Фото Семис София Сергеевна
Re: Алгоритм ''Чётность числа''
Автор Семис София Сергеевна - 10 листопад 2017, п'ятниця, 10:42
 
програмный