лабораторная работа / Лабораторная работа4
.docЛабораторная работа №4.
Дано:
БЛОК СХЕМА. ПРОГРАММА.
Program lab4;
Var i, k, l, d: integer;
p1, s1, s2, s3, y: real;
begin
p1:=1;
for k=1 to 3 do begin
s1:=0;
for i=2 to 4 do begin
s1:=s1+(k*i);
end;
s2:=0;
for l=1 to 5 do begin
s2:=s2+((k*l)*(k*l));
end;
p1:=p1*(k*s1+s2);
end;
s3:=0;
for d=1 to 3 do begin
s3:=s3+((d*d+1)*(d*d+1)*(d*d+1));
end;
y:=p1/s3;
write (‘y=’, y:12:6);
end.
Результат: y=1605,987643.