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)
поднять перо
кон
Объяснение: Все в скирине
