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

Предыдущий
вопрос Следующий
вопрос

program Power;
function Power(base, exponent: Integer): Integer;
var
result, i: Integer;
begin
result := 1;
for i := 1 to exponent do
result := result * base;
Power := result;
end;
var
kilobyte, megabyte, gigabyte: Integer;
begin
kilobyte := Power(1024, 1);
megabyte := Power(1024, 2);
gigabyte := Power(1024, 3);
writeln('1 kilobyte contains ', kilobyte, ' bytes');
writeln('1 megabyte contains ', megabyte, ' bytes');
writeln('1 gigabyte contains ', gigabyte, ' bytes');
end.

Результат:

1 kilobyte contains 1024 bytes
1 megabyte contains 1048576 bytes
1 gigabyte contains 1073741824 bytes