Var
A,S:real;
i:integer;
Begin
A:=10;
S:=2;
For i:= 1 to 10 do
Begin
S:=S+A;
A:=A*1.2;
End;
WriteLn('Количество съеденых комаров на 10 день: ',S:0:0);
End.
Var
a,b:integer;
Begin
Writeln('Введите а и b через пробел');
Readln(a,b);
Writeln(sqrt(a*b));
End.
Готово. Местами приходилось отходить от заданных координат, и куб получился не под тем углом, но это всё же куб. Программа во вложении.
Высказывание будет ложным при наименьшем х = 3