Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
2) х/11=22/1
х=22*11=242
х/10=21/1
х=21*10=210
242-210=32
3)из 12 в 8, потом из 8 в 5 , потом из 5 выливаем обратно в 12, затем из 8 выливаем 3 оставшихся пинта от предыдущего перелива в 5, снова набираем 8 и доливаем из него в 5
и в итоге в 8 останется 6 пинт
4)
F(5)=F(4)*7
F(4)=F(3)*6
F(3)=F(2)*5
F(2)=F(1)*4=1*4=4
F(3)=4*5=20
F(4)=20*6=120
F(5)=120*7=840
Ответ: f
Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
Бит , байт, Мбайт, Кбайт, Гбайт, Тбайт