Question

дано целое число n вывести первые n чисел арифметической прогрессии 1,4,7,10 и т.д.паскаль. Используя цикл for. ОЧЕНЬСРОЧНО!!!! Задача из PT4 ALoopFor16

Answer 1

var

i,n,number:integer;

begin

readln(n);

number:=1;

for i:=1 to n do

begin

writeln(number);

number:=number+3;

end;

end.

Answer 2

Для решения данной задачи на языке Паскаль с использованием цикла `for` можно написать следующий код:

program ArithmeticProgression;

var
  n, i, term: integer;

begin
  write('Введите количество чисел в прогрессии: ');
  readln(n);

term := 1; // первый член прогрессии

writeln('Первые ', n, ' чисел арифметической прогрессии:');

for i := 1 to n do
  begin
    write(term, ' ');
    term := term + 3; // разность прогрессии равна 3
  end;

writeln;
end.

В этом коде мы сначала запрашиваем у пользователя количество чисел `n` в прогрессии. Затем мы инициализируем переменную `term` значением 1, так как первый член прогрессии равен 1. Затем мы выводим первые `n` чисел арифметической прогрессии, используя цикл `for`. Внутри цикла мы выводим текущий член прогрессии и затем увеличиваем его значение на 3, так как разность прогрессии равна 3.

Например, если пользователь вводит `n = 5`, то программа выведет следующий результат:

Первые 5 чисел арифметической прогрессии:
1 4 7 10 13

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