Возвести в 6 степень введенное число через цикл (использовать - вопрос №66596166 от Chevalier26 03.09.2021 07:04

Question

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

Chevalier26 · 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....