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

Question

Информатика

Евфимий

26 марта, 02:25

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

+5

Ответы (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.