Question

Напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1. PascalABC.NET

Answer 1

var n, a: integer;

begin

   readln(n);

   for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)

end.

Answer 2

===== PascalABC.NET =====

begin

 SeqGen(ReadInteger, 1, p -> p + 3).Print

end.

Answer 3

Вот пример программы на PascalABC.NET, которая находит первые n натуральных чисел, у которых остаток от деления на 3 равен 1:

pascalCopy code
program FindNumbersWithRemainder;
var
  n, count, number: integer;
begin
  writeln('Введите количество чисел (n): ');
  readln(n);
  
  count := 0;
  number := 1;
  
  writeln('Первые ', n, ' натуральных чисел, у которых остаток от деления на 3 равен 1:');
  
  while count < n do
  begin
    if number mod 3 = 1 then
    begin
      writeln(number);
      count := count + 1;
    end;
    
    number := number + 1;
  end;
end.

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