1)а) 64гбайт=64×1024=65536мбайт
б)256байт=256/1024²=0,000244мбайт
в)359кбайт=359/1024=0,35мбайт
2)а)256мбайт=256×1024²=268 435 456байт
б)64Гбайт=6.871948×10^10байт
в)125кбайт=125×1024=128000байт
var m,s,b,a:integer;
begin
writeln ('Введите степень:');
read (m);
b:=3;
s:=1;
for a:=1 to m do begin
s:=s*b;
end;
writeln('3 в степени ',m,': ',s);
end.
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln;
for i:=1 to 10 do write(a[i],' ');
end.