Задание №10. Создай программу. Задача. Осуществить ввод числа с клавиатуры. Возвести введенное число в квадрат, в куб, в 4 и 5 степень. Выдать на экран результат с пояснениями. Воспользоваться только двумя переменными. Например х и у.

Задание №10. Необходимо написать программу, которая вводит число с клавиатуры и возводит его в квадрат, куб, 4 и 5 степени, используя только две переменные.

program powers; var x, y: real; begin readln(x); y := x * x; writeln('Квадрат: ', y); y := y * x; writeln('Куб: ', y); y := y * x; writeln('4 степень: ', y); y := y * x; writeln('5 степень: ', y); end.

В данной программе:

• program powers; – объявление программы с именем powers.
• var x, y: real; – объявление двух вещественных переменных x и y.
• begin – начало блока кода программы.
• readln(x); – чтение значения числа x с клавиатуры.
• y := x * x; – вычисление квадрата числа x и присваивание результата переменной y.
• writeln('Квадрат: ', y); – вывод значения квадрата на экран с поясняющим текстом.
• y := y * x; – вычисление куба числа x и присваивание результата переменной y.
• writeln('Куб: ', y); – вывод значения куба на экран с поясняющим текстом.
• y := y * x; – вычисление 4 степени числа x и присваивание результата переменной y.
• writeln('4 степень: ', y); – вывод значения 4 степени на экран с поясняющим текстом.
• y := y * x; – вычисление 5 степени числа x и присваивание результата переменной y.
• writeln('5 степень: ', y); – вывод значения 5 степени на экран с поясняющим текстом.
• end. – конец программы.

Для запуска программы необходимо ввести число с клавиатуры, после чего программа выведет его квадрат, куб, 4 и 5 степени.

Ответ: Программа выводит квадрат, куб, 4 и 5 степени введенного числа.