Найти 15 первых натуральных чисел, делящихся нацело - вопрос №15199867296 от vwvwvwvwvwv 20.05.2022 04:15

Question

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

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