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

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.

Aurora 3D Text and Logo Maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3D текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. Aurora 3D Text and Logo Maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3D логотип или текст. При создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. Допускается импорт шрифтов и SVG-графики. Итоговый вариант выводится в виде PNG, TGA, TIFF, JPG, BMP, XPM и PPM-файлов.

Если основание системы счисления равно N, то для записи чисел в этой системе используются цифры от 0 до N-1, то есть наибольшая цифра равна N-1. Например для нашей родной десятичной системы N=10, используются 10 цифр 0 1 2 3 4 5 6 7 8 9, наибольшая из них 9. И наоборот, если наибольшая цифра в записи числа равна N-1, то минимально возможное основание системы счисления на единицу больше, то есть равно N.

Анализируем:

Число 1010: наибольшая цифра = 1, минимальное основание = 2

Число 7817: наибольшая цифра = 8, минимальное основание = 9

Число 1023 - наибольшая цифра = 3, минимальное основание = 4

Число 6767 - наибольшая цифра = 7, минимальное основание = 8

1010 2

7817 9

1023 4

6767 8