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

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

 
 
Picture of Посунько Никита Олександрович
Алгоритм ''Чётность числа''
by Посунько Никита Олександрович - Thursday, 9 November 2017, 9:16 PM
 

var a:integer;

begin

readln(a);

if a mod 2 = 0 then

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

else

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

end.

Picture of Семис София Сергеевна
Re: Алгоритм ''Чётность числа''
by Семис София Сергеевна - Friday, 10 November 2017, 10:42 AM
 
програмный