Программа запрашивает целое число и определяет четное или нечетно. Составить блок схему и программу.

1
Да
Комментарий удален
а что ReadLn последнее?
Комментарий удален
Ясно

Ответы и объяснения

2014-02-13T09:39:07+00:00
Var a:integer;
begin
   readln (a);
   if (a mod 2 = 0) then writeln ('Четно') else writeln ('Нечетно');
end.