Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Найдите N-ый член арифметической прогрессии (N>0) c некоторым шагом арифметической прогрессии d>0 т.е. . Первый член арифметической прогрессии следует ввести с клавиатуры. Если можно с использованием циклов.

Ответ оставил Гость

СПОСОБ С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write (введите a1: );
Readln(a) ;
Write( введите шаг арифм. прогресии: );
Readln(d);
Write(введите номер члена арифм. прогресии:);
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, член арифметической прогресии равен : , a);
End.
СПОСОБ БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write (введите a1: );
Readln(a) ;
Write( введите шаг арифм. прогресии: );
Readln(d);
Write(введите номер члена арифметической прогресии: );
Readln(n);
Writeln( ответ: , a+d*(n-1));
End.