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, с2, с3 и с4 записал целые числа. в ячейке в1 он хочет получить произведение этих чисел, если все числа положительны, сумму этих чисел, если среди них есть хотя бы одно отрицательное, и 0 в остальных случаях. чтобы получить требуемый результат, в ячейку в1 миша должен записать формулу: а) = если (макс (с1: с4) < 0; сумм (с1: с4) ; произвед (с1: с4) ) б) = если (мин (с1: с4) > 0; произвед (с1: с4) ; сумм (с1: с4) ) в) = если (произвед (с1: с4) < 0; сумм (с1: с4) ; произвед (с1: с4) ) г) = если (мин (с1: с4) < 0; сумм (с1: с4) ; произвед (с1: с4) )
б) =ЕСЛИ(МИН(C1:C4) > 0; ПРОИЗВЕД(C1:C4); СУММ(C1:C4))