Последовательность чисел

@mexx1994 · Регистрация: 11.04.2010

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

1.)Дана последовательность чисел 2 4 8 16 32 64 ...
Вычеслить сумму а1+а3+а5+а7+а9 (1,3,5,7,9 числа..)

2.) Вычислить √2+√4+√6+...√98
Где √2 и т.д на всё выражение
Заранее спасибо

@Шутка · 10.10.2010, 15:07

Pascal

uses crt;
var
sum,k,a,i:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
k:=k+1;
if k mod 2 = 1 then
sum:=sum+a;
end;
writeln(sum);
end.

2ая делается по аналогии. Сможете сами?
Если есть впоросы - спрашивайте! =)

@mexx1994 · 10.10.2010, 22:47 **[ТС]**

мне нужно не через if ,а через составление формулы..

Добавлено через 12 минут
Например ,найти произведение 1*2*3*4*5

Pascal

...
p:=1;
for m:=1 to n do 
p:=p*m;
writeln('prouzvedenue',p);
end.

Добавлено через 3 часа 5 минут
так что?никто не поможет? =(

Добавлено через 2 часа 5 минут
вот сделал 2:

Pascal

...
n:=96;
a:=sqrt(n)+n-3;
for i:=1 to 32 do begin 
a:=sqrt(a)+n-3;
n:=n-3;
end;
readln;
end.

помогите плиз с 1-ой задачей...

@Puporev · 11.10.2010, 12:10

1.

Pascal

uses crt;
var n,i:byte;
    s,a:longint;
begin
clrscr;
write('n=');
readln(n);
a:=2;
s:=2;
i:=1;
writeln('a1=',a);
while i<n do
 begin
  i:=i+2;
  a:=a*4;
  writeln('a',i,'=',a);
  s:=s+a;
 end;
writeln;
write('Сумма=',s);
readln
end.

Добавлено через 4 минуты
2.

Pascal

uses crt;
var i:byte;
    s:real;
begin
clrscr;
s:=sqrt(98);
for i:=48 downto 1 do
s:=sqrt(2*i+s);
write('S=',s:0:2);
readln
end.

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
		1
	Последовательность чисел 10.10.2010, 13:18. Показов 631. Ответов 3 Метки нет (Все метки) 1.)Дана последовательность чисел 2 4 8 16 32 64 ... Вычеслить сумму а1+а3+а5+а7+а9 (1,3,5,7,9 числа..) 2.) Вычислить √2+√4+√6+...√98 Где √2 и т.д на всё выражение Заранее спасибо 0

	11.10.2010, 12:10