Написать подпрограмму возведения хоть какого числа в целую неотрицательную степень. С ее

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт