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.
var a: array [1..5] of integer;
i, j , count: integer;
repeated : boolean;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-e число: ');
readln(a[i]);
end;
for i := 1 to 5 do
begin
repeated := false;
for j := 1 to i - 1 do
if (a[i] = a[j]) then
repeated := true;
if repeated then continue;
count := 1;
for j:= i+1 to 5 do
if (a[i]=a[j]) then
inc(count);
writeln('Число ', a[i], ' встречается ', count,' раз');
end;
end.