var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*3.14*r:0:3);
end.
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
1. 2^13 МБ = 2^23 КБ = 2^33 Б = 2^36 бит
2. 64 МБ = 2^6 МБ = 2^16 КБ = 2^26 Б = 2^29 Бит
3. 32 МБ = 2^5 Мбит = 2^3 МБ = 2^-7 ГБ = 0,0078125 ~ 0.008 ГБ.