Question

[НА ПАСКАЛЬ]


Заполнить массив пятнадцатью первыми натуральных чисел, делящихся нацело на 19 и находящихся в интервале, левая граница которого равна 100.

Answer 1

Ответ:

var c, y: integer;

begin

y:= 100;

c:= 0;

repeat

if y mod 19 = 0 then begin

writeln(y);

inc(c);

end;

inc(y);

until c = 15;

end.