Question

Помогите решить в Паскале

Answer 1

PascalABC.NET 3.3, сборка 1540 от 16.09.2017
Внимание! Если программа не работает, обновите версию!

1. Школьный вариант

var
  i,j:integer;
  s,p:real;
begin
  s:=0;
  for i:=1 to 100 do begin
    p:=1;
    for j:=1 to 20 do p:=p/(i*i+j*j);
    s:=s+i*i*p
    end;
  Writeln(s)
end.

Результат
7.16965901888604E-38

2. Современный вариант

begin
  var s:=0.0;
  for var i:=1 to 100 do begin
    var p:=1.0;
    for var j:=1 to 20 do p*=1/(i*i+j*j);
    s+=i*i*p
    end;
  Writeln(s)
end.