Предмет: Информатика, автор: Maxonchik94

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

Ответы

Автор ответа: valgrisa
1

Ответ:

program test;

var i, n: integer;

begin

read(n);

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

end.

Автор ответа: MatemaT123
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.

Приложения:
Похожие вопросы