//Pascal
//var 1
var i:integer;
s:real;
begin
readln(s);
for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
writeln(s);
end.
Program Trykutnyk;
uses Crt;
const a=5; b=3.6; c=4.2;
var p,s: real;
begin
clrscr;
p:=a+b+c;
writeln('p=', p:5:2);
p:=p/2;
s"=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=', s:5:2);
writeln('Имя Фамилия');
readln
end.
Жилой, есть комнаты, окна, крыша,этажи, стенки, ступеньки, двери
До перелива 8 0 0
1) 3 5 0
2) 3 2 3
3) 6 2 0
4) 6 0 2
5) 1 5 2
6) 1 4 3
<span>7) 4 4 0</span>