Question

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

Answer 1

Ответ:

program test;

var i, n: integer;

begin

read(n);

for i := 1 to n do write(i*3-2,' ')

end.

Answer 2

Ответ:

Объяснение:

Запишем формулу для нахождения n-го члена арифметической прогрессии:

$a_{1}=1 \ , \ a_{2}=4 \Rightarrow d=a_{2}-a_{1}=4-1=3;$

$a_{n}=a_{1}+(n-1)d \Rightarrow a_{n}=1+3(n-1);$

Код программы:

Program Arifmeticheskaya;

Var i, n, a: integer;

Begin

 Writeln('Введите n:');

 Read(n);

 a:=1;

 for i:=0 to n-1 do

   begin

     a:=1+3*i;

     Write(a, ' ');

   end;

Readln;

End.

1bfc1cc4d71e31d2c2c72cf9b25e34c9.pas