Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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