составьте программку возведения в квадрат И в куб ,, пожалуйста.

Составьте программку возведения в квадрат
И в куб ,, пожалуйста.

Задать свой вопрос
2 ответа
PascalABC.NET 3.3, сборка 1547 от 07.10.2017
Внимание! Если программка не работает, обновите версию!

begin
  var x:=ReadReal('Введите число:');
  Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.

Пример
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568

Var
x : real;
begin
write('Введите число х: ');
readln(x);
writeln(x, 'в квадрате равно', power(x, 2));
writeln(x, 'в кубе одинаково', power(x, 3))
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт