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

Question

Информатика

Марианна

16 июня, 23:00

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

+5

Ответы (1)

Знаете ответ?

Ким · Answer 1

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.