перевести код з Pascal. Очень нужно

Найдите 5 первых чисел, что больше за 200 и кратные 17.

Var n,k:word;

Begin

n:=200; k:=0;

repeat

n:=n+1;

If n mod 17=0 then

Begin

write(n,' '); k:=k+1;

end;

until k=5;

end.

ніка2007    3   05.05.2020 15:45    0