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

Ответы

Ответ дал: glebglebgleb
0

var
i,j,k:integer;
begin
randomize;

k=random(999);

if k mod 2 <> 0 then

k:=k+1;

write(k);
end.

Похожие вопросы