Написать программу для вычисления 10 случайных чисел, и проверит является ли оно четным (результат вывести в виде "четное" или "нечетное")

Question

Информатика

Инуля

7 ноября, 10:54

Написать программу для вычисления 10 случайных чисел, и проверит является ли оно четным (результат вывести в виде "четное" или "нечетное")

+1

Ответы (1)

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

Кристина · Answer 1

Program z1;

var a, i: integer;

begin

for i:=1 to 10 do

begin

a:=random (100) ;

if a mod 2 = 0 then

writeln (a,' четное')

else writeln (a,' нечетное') ;

end;

end.