Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Задания(Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения

Ответ оставил Гость

Var 
a:real;
Begin 
write(Введите размер в байтах ); 
Readln(a); 
writeln(a*8, бит); 
writeln(a, байт); 
a:=(a/1024); 
writeln(a, Кбайт); 
a:=(a/1024); 
writeln(a, Мбайт); 
a:=(a/1024); 
writeln(a, Гбайт); 
a:=(a/1024); 
writeln(a, Тбайт);
End.