Программа Pascal
Ввести число x и вывести третью, пятую и десятую степень этого числа и записать в переменную y (использовать оператор умножения минимальное количество раз)

5 Сен 2019 в 08:42
242 +1
0
Ответы
1
program PowerCalculation;
var
x, y, x3, x5, x10: integer;
begin
write('Enter a number: ');
readln(x);
x2 := x * x; // возводим x в квадрат
x3 := x * x2; // возводим x в куб
x5 := x2 * x3; // возводим x в пятую степень
x10 := x5 * x5; // возводим x в десятую степень
writeln('Third power of ', x, ' is: ', x3);
writeln('Fifth power of ', x, ' is: ', x5);
writeln('Tenth power of ', x, ' is: ', x10);
y := x3 + x5 + x10; // записываем сумму третьей, пятой и десятой степени в переменную y
writeln('Sum of third, fifth and tenth power of ', x, ' is: ', y);
end.
20 Апр 2024 в 03:56
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир