Составить программу, которая определяет четное число или нет? Программа генерирует случайное число с помощью Rаndom и выводит само число и фразу "чётное" или "нечётное".
Составить программу, которая определяет четное число или нет?
Программа генерирует случайное число с помощью Rаndom и выводит само число и фразу "чётное" или "нечётное".
Гость
Ответ(ы) на вопрос:
Гостьvar s: integer;
begin
s := random(1000)+2;
writeln(s);
if (s mod 2 = 0) then writeln('Четное.')
else
writeln('Нечетное')
end.
Не нашли ответ?
Похожие вопросы