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

1

Ответы и объяснения

2014-02-16T16:49:50+00:00
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 случайных чисел? там через random нужно же..
Вместо ReadLn(N) пишешь N:=Random(300)\