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);
<span>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);
<span>end.</span>
</span>
Получается так:
Андрей нарисовал оранжевого жирафа.
Боря нарисовал черного кота.
Витя нарисовал оранжевого тигра.
Гена нарисовал желтого гепарда.
Дима нарисовал желтого тигра.
S =-9800
var i,k,n,S:integer; A:array[1..100,1..100] of integer;
begin
for i:=1 to 100 do begin
for k:=1 to 100 do begin
if i = k then A[i,k]:= 1 else A[i,k]:= -1;
s:= s + A[i,k];end;end;
write('S =',S:5);
<span>end.</span>