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

Question

Информатика

Еля

28 января, 09:07

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

+4

Ответы (1)

Знаете ответ на вопрос?

Всеслава · Answer 1

Program p2; //для 10-ой

Var y, x:integer;

i:byte;

Begin

Readln (x) ; / / введите Х

For i:=1 to 10 do

Y:=y*x;

Writeln (Y) ;

End.

Program p2; //для 15-ой

Var y, x:integer;

i:byte;

Begin

Readln (x) ; / / введите Х

For i:=1 to 15 do

Y:=y*x;

Writeln (Y) ;

End.