Всі умови | Умова: Вирахувати...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №334)
program Pr334;
const
n = 100;
m = 50;
var
s1, s2, s3, s4 : real;
i, j : integer;
begin
s1 := 0; s2 := 0; s3 := 0; s4 := 0;
for i := 1 to m do
for j := 1 to n do
begin
s1 := s1 + 1 / (i + j * j);
s2 := s2 + sin(i*i*i + j*j*j*j);
s3 := s3 + (j - i + 1) / (i + j);
s4 := s4 + 1 / (2*j + i);
end;
writeln('s1 = ', s1:2:3);
writeln('s2 = ', s2:2:3);
writeln('s3 = ', s3:2:3);
writeln('s4 = ', s4:2:3);
readln;
end.