Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / Текст лабы 4
.txt Program lab_4;
var
p1,s1,p2: real; i,j,k: integer;
begin
p2:=1;
for j:=1 to 4 do
begin
p1:=1;
for k:=1 to 3 do
begin
s1:=0;
for i:=1 to 3 do s1:=s1+sqr(k)+sqr(j)+i;
p1:=p1*(k-j+s1);
end;
p2:=p2*(j-p1);
end;
writeln ('y= ',p2);
end.
Ответ:
18
у=6,87*10
var
p1,s1,p2: real; i,j,k: integer;
begin
p2:=1;
for j:=1 to 4 do
begin
p1:=1;
for k:=1 to 3 do
begin
s1:=0;
for i:=1 to 3 do s1:=s1+sqr(k)+sqr(j)+i;
p1:=p1*(k-j+s1);
end;
p2:=p2*(j-p1);
end;
writeln ('y= ',p2);
end.
Ответ:
18
у=6,87*10
Соседние файлы в папке лабораторная работа