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

Question

Информатика

Грач

6 мая, 04:27

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

+3

Ответы (1)

Знаете ответ на вопрос?

Будион · Answer 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.