Question

Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. ПАСКАЛЬ

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (k, n) := (500, 0);

 repeat

   if (k mod 13 = 0) or (k mod 17 = 0) then

   begin

     k.Print;

     n += 1

   end;

   k += 1

 until n = 20

end.

Answer 2

Для нахождения первых 20 натуральных чисел, больше 500 и кратных 13 или 17 в языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program First20Numbers;
var
  count, num, currentNumber: integer;
begin
  count := 0;
  num := 501; // Начинаем с числа 501, так как ищем числа больше 500.

  writeln('Первые 20 натуральных чисел, больше 500 и кратные 13 или 17:');
  
  while count < 20 do
  begin
    currentNumber := num;
    if (currentNumber mod 13 = 0) or (currentNumber mod 17 = 0) then
    begin
      writeln(currentNumber);
      Inc(count);
    end;
    Inc(num);
  end;

  readln;
end.

Приведенный код найдет первые 20 натуральных чисел, которые больше 500 и кратны 13 или 17, и выведет их на экран.