Составить программу, которая определяет четное число или нет?

Программа генерирует случайное число с помощью Rаndom и выводит само число и фразу "чётное" или "нечётное".

Question

Бенедикт

5 февраля, 00:23

+3

Ответы (1)

Знаете ответ на вопрос?

Валентыч · Answer 1

Var s: integer;

begin

s : = random (1000) + 2;

writeln (s) ;

if (s mod 2 = 0) then writeln ('Четное.')

else

writeln ('Нечетное')

end.