Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. Pascal ABC

function Pow(m,n:integer):longint;
var
  i:byte;
  p:longint;
begin
  p:=1;
  for i:=1 to n do p:=p*m;
  Pow:=p
end;

begin
  Writeln('1 Кбайт=',Pow(2,10),' байт');
  Writeln('1 Мбайт=',Pow(2,20),' байт');
  Writeln('1 Гбайт=',Pow(2,30),' байт');
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.