
вывести на экран только четные числа сгимилированые случайным образом

var
i,j,k:integer;
begin
randomize;
k=random(999);
if k mod 2 <> 0 then
k:=k+1;
write(k);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
вывести на экран только четные числа сгимилированые случайным образом
var
i,j,k:integer;
begin
randomize;
k=random(999);
if k mod 2 <> 0 then
k:=k+1;
write(k);
end.