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

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

 
 
Фото Посунько Никита Олександрович
Алгоритм ''Чётность числа''
от Посунько Никита Олександрович - Четверг, 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
 
програмный