Возвести в 6 степень введенное число через цикл (использовать тип longint при необходимости).по паскалю

Question

Возвести в 6 степень введенное число через цикл (использовать тип longint при необходимости).по паскалю

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.