Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления: а) y=x10 б) y=x15 Постараться использовать минимальное количество дополнительных переменных.

28 Ноя 2019 в 19:44
242 +1
0
Ответы
1

а)

program PowerOfTen;
var
x, y: integer;
begin
write('Enter a number: ');
readln(x);
y := x * x * x * x * x * x * x * x * x * x;
writeln('x^10 = ', y);
end.

б)

program PowerOfFifteen;
var
x, y: integer;
begin
write('Enter a number: ');
readln(x);
y := x * x * x * x * x * x * x * x * x * x * x * x * x * x * x;
writeln('x^15 = ', y);
end.
19 Апр 2024 в 00:37
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир