Question

дано натуральное н. написать программу которая находит н натуральніх чисел у которіх остаток от делния на 3 равен 1 паскаль(паскаль)

Answer 1

Ответ:

begin

  var n := ReadInteger();

  foreach var x in range(1, n * 3, 3) do

  begin

     Print(x);

  end;

end.

Объяснение:

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая находит первые n натуральных чисел, остаток от деления которых на 3 равен 1:

pascalCopy code
program FindNumbers;
var
  n, count, number: integer;
begin
  writeln('Введите количество чисел, которые нужно найти:');
  readln(n);

  writeln('Первые ', n, ' натуральных чисел с остатком 1 при делении на 3:');
  count := 0;
  number := 1;

  while count < n do
  begin
    if number mod 3 = 1 then
    begin
      writeln(number);
      count := count + 1;
    end;
    number := number + 1;
  end;
end.

Программа запрашивает у пользователя количество чисел, которые нужно найти. Затем она выводит первые n натуральных чисел, у которых остаток от деления на 3 равен 1.

Пожалуйста, убедитесь, что вы используете среду разработки, которая поддерживает язык Паскаль, и правильно настроили ее для выполнения программы.