Question

Найти 15 первых натуральных чисел, делящихся нацело на 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.

Answer 2

Конечно, вот программа на языке Pascal, которая находит первые 15 натуральных чисел, делящихся нацело на 19 и находящихся в интервале с левой границей 100:

pascalCopy code
program FindDivisibleNumbers;

var
  count, number: integer;

begin
  count := 0;
  number := 100;

  writeln('Первые 15 натуральных чисел, делящихся нацело на 19 и находящихся в интервале [100, 1000]:');

  while count < 15 do
  begin
    if number mod 19 = 0 then
    begin
      write(number, ' ');
      Inc(count);
    end;

    Inc(number);
  end;
  
  readln;
end.

Программа выведет первые 15 натуральных чисел, делящихся нацело на 19 и находящихся в интервале [100, 1000].