Найти 15 первых натуральных чисел, делящихся нацело - вопрос №15199866953 от lol1050 15.07.2021 11:06

Question

Информатика: Найти 15 первых натуральных чисел, делящихся нацело на 19 и находящихся в интервале, левая граница которого равна 100. можно в виде

lol1050 · Answer

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....