Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение

@artem08011997 · Регистрация: 02.10.2013

Author24 — интернет-сервис помощи студентам

Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение.

@MatMaster · 24.10.2013, 18:38

Pascal

{$N+}
uses crt;
var a1,i,n:integer; an,d:longint; pro:double;
begin
clrscr;
write('Vvedite a1, d, N: ');
readln(a1,d,n);
pro:=1;
for i:=1 to n do
    begin
    an:=a1+d*i-d;
    pro:=pro*an;
    writeln(an);
    end;
write('Proizvedenie= ',pro:0:0);
readkey;
end.

@artem08011997 0 / 0 / 0 Регистрация: 02.10.2013 Сообщений: 16
		1
	Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение 24.10.2013, 17:22. Показов 4155. Ответов 1 Метки нет (Все метки) Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение. 0

	24.10.2013, 18:38

Арифметическая прогрессия задана первым членом -a1 и разностью d. Вычислить N первых членов этой прогрессии и их произведение

Решение