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

Question

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

---

Comments

два вложенных цикла

---

внешний по i, внутренний по j

---

ввести 2 целых числа и зарезервировать 2 целочисленные переменные для произведения и суммы

---

внутрь формулу дроби

---

а цель сумму ста слагаемых посчитать похоже

---

я думала школа...

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.

Comments

в современном варианте тип данных не описывается?

---

спасибо!