Пожалуйста, помогите с решением задачи на паскале(10 класс информатика). Пробовал что нибудь настроить на кодблоке, не получилось. з.ы. МОдераторов прошу простить, не смог я написать на формулах в текстовом варианте.
1. var i,j:integer; p,s:real; begin s:=0; for i:=1 to 5 do begin p:=1; for j:=1 to 6 do p:=p*(i+j)/20; s:=s+p; end; writeln('s=',s); end. 2.В этой задаче используется тип real, так как числа получаются ОЧЕНЬ БОЛЬШИЕ var n,k:integer; p1,p2,s:real; begin p1:=1; for n:=1 to 5 do p1:=p1*n; p2:=1; for k:=1 to 30 do p2:=p2*k; s:=p1+p2; writeln(p1,' ',p2); writeln('s=',s); end.
Answers & Comments
Verified answer
1.var i,j:integer; p,s:real;
begin
s:=0;
for i:=1 to 5 do
begin
p:=1;
for j:=1 to 6 do p:=p*(i+j)/20;
s:=s+p;
end;
writeln('s=',s);
end.
2.В этой задаче используется тип real, так как числа получаются ОЧЕНЬ БОЛЬШИЕ
var n,k:integer; p1,p2,s:real;
begin
p1:=1;
for n:=1 to 5 do p1:=p1*n;
p2:=1;
for k:=1 to 30 do p2:=p2*k;
s:=p1+p2;
writeln(p1,' ',p2);
writeln('s=',s);
end.