Question

Решите задачу-1 (Паскаль 7 класс) пожалуйста .Постарайтесь не сложным путем,а то учитель не поверит.))ДАЮ 30 БАЛОВ

Answer 1

Var i,n:integer; a,s:real;
begin
write('n = '); readln(n);
s:=24;
for i:=1 to n-1 do 
 begin
 a:=(2*i-1)*(2*i)/(4*i);
 s:=s+a;
 end;
writeln('s = ',s);
end.

Пример:
n = 5
s = 36.5

Answer 2

Переделал, как написали в комментариях
var s,k:real; i,n:integer;
begin
write('n=');
read(n);
s:=24;
for i:=1 to n-1 do begin
  k:=(2*i-1)*(2*i)/(4*i);
  s:=s+k;
end;
write('sum=',s)
end.