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

Question

Информатика

Семен

6 мая, 06:28

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

+4

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