Программа Pascal

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

Мы можем использовать оператор умножения всего один раз, получая очередную степень числа в цикле.

var

 x, st3, st5, st10, i, st: longint;

begin

 read(x);

 st:=1;

 for i:=1 to 10 do

 begin

   st:=st*x;

   if i=3 then st3:=st

   else if i=5 then st5:=st;

 end;

 st10:=st;

 writeln(st3, ' ', st5, ' ', st10);

end.

----------------------------------

Файл решения прикреплён.