Найдите сумму: а)квадратов целых чисел от 10 до 20,б)чисел, обратных квадратам первых 100 натуральных. 10.найдите сумму в первых ч

[макс789]

Найдите сумму: а)квадратов целых чисел от 10 до 20,б)чисел, обратных квадратам первых 100 натуральных.
10.найдите сумму в первых членов последовательности:5,55,555,5555
Pascal

[newerow1989]

var s,i:integer;
begin
   s:=0;
   For i:=10 to 20 do
      s:=s+i*i;
   Writeln(s);
   Readln;
end.

var i:integer;
    s:real;
begin
   s:=0;
   For i:=1 to 100 do
      s:=s+1/(i*i);
   Writeln(s:5:5);
   Readln;
end.

var s,i,n,k:integer;
begin
   Write('count = ');Readln(k);
   s:=0;
   n:=5;
   For i:=1 to k do
   begin
      s:=s+n;
      n:=n*10+5;
   end;
   Writeln(s);
   Readln;
end.