Составить алгоритм и программу для вывода первых членов арифметической прогрессии с основанием а и разницей d.

Question

Тигран

26 марта, 21:54

+3

Ответы (1)

Знаете ответ?

Ипполит · Answer 1

Var

a, d: real;

i, n: integer;

begin

read (a, d, n) ;

for i : = 1 to n do

writeln ('a[', i, '] = ', a + d * (i - 1)) ;

end.