Напиши программу: можно ли на листе бумаги, со сторонами x см и у см, разместить прямоугольный треугольник с катетами a см и b см, параллельными краям листа.

Var x,y,a,b:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if ((a<x)and(b<y))or((b<x)and(a<y)) then Write('Можно')
else Write('Нельзя');
End.

1)а

var a:real;

begin

readln(a);

a1 := a*a;  /получили а^2
a := a1*a1;  /получили a^4

a := a1*a*a;  /получили a^(4+4+2)

writeln(a);

end.

 

1б)

var x:real;

i:integer;

begin

readln(a);

a1 := a*a*a;  /получили а^3
a := a1*a1*a1;  /получили a^9

a := a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

 

2)

var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.

 

3)var a:real;
begin
readln(a);

writeln('В килобайтах' a/1024);

writeln('В мегабайтах' a/(1024*1024));

end.

ответ:использовать Чертежник

алг задача

нач

цел а

ввод а

сместиться в точку (1,1)

если а >= 0

то

нц 1 раз

фигура

кц

иначе

фигура

все

поднять перо  

фигура

сместиться в точку (7,1)

фигура

сместиться в точку (14,1)

фигура

кон

алг фигура

нач

опустить перо

выбрать чернила (жёлтый)

сместиться на вектор (4,0)

сместиться на вектор (-2,3)

сместиться на вектор (-2,-3)

поднять перо

опустить перо

сместиться на вектор (4,0)

сместиться на вектор (0,4)

сместиться на вектор (-4,0)

сместиться на вектор (0,-4)

поднять перо

кон

Объяснение: Все в скирине