Информатика, вопрос задал jel91362 , 8 лет назад

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

Ответы на вопрос

Ответил DonPedro80
0
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.
Новые вопросы