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

Question

Информатика

Веденей

6 июня, 01:26

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

+2

Ответы (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.