Получить 10 случайных двузначных чисел и определить: четное число или нет.(Паскаль)
Получить 10 случайных двузначных чисел и определить: четное число или нет.
(Паскаль)
Гость
Ответ(ы) на вопрос:
ГостьProgram Project;
var
I, N: Integer;
begin
for I:=0 to 9 do begin
ReadLn(N);
if (N Mod 2 = 0) then
WriteLn('чётное')
else
WriteLn('нечётное')
end;
end.
Не нашли ответ?
Похожие вопросы