Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. Pascal ABC
Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. Pascal ABC
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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 bytes1 megabyte contains 1048576 bytes
1 gigabyte contains 1073741824 bytes