Написать подпрограмму возведения любого числа в целую неотрицательную степень. С ее помощью вычислить, сколько байтов содержится в килобайте, мегабайте и в гигабайте. 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.
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.
Новые вопросы