Получить 10 случайных двузначных чисел и определить: четное число или нет.

(Паскаль)

Question

Информатика

Ляна

9 января, 18:55

Получить 10 случайных двузначных чисел и определить: четное число или нет.

(Паскаль)

+1

Ответы (1)

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

Зара · Answer 1

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.

Получить 10 случайных двузначных чисел и определить: четное число или нет.(Паскаль)

Получить 10 случайных двузначных чисел и определить: четное число или нет.

(Паскаль)