Question

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

Answer 1

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.