Предмет: Информатика,
автор: Anhen6
Хэлп! Срочно!
Дан ряд чисел: 1+2+2+4+8+32... (умножаем на предыдущее число). Пользователь вводит сколько должно быть чисел в этом ряду, а программа должна посчитать их сумму. Плиз, напишите в Паскале!
Ответы
Автор ответа:
0
var a,b,c,s,n,i:integer;
begin
readln(n);
a:=1;
b:=2;
s:=3;
for i:=3 to n do
begin
c:=b*a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
end.
begin
readln(n);
a:=1;
b:=2;
s:=3;
for i:=3 to n do
begin
c:=b*a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
end.
Автор ответа:
0
Спасибо огромное!!! Уже второй раз выручаете!!!
Похожие вопросы
Предмет: Химия,
автор: vlubchivayadevo4ka
Предмет: Английский язык,
автор: lizamalyheva1
Предмет: Информатика,
автор: ziyatdinovazalina201
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: zinkoova2012