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

Question

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

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.  

Comments

в виде блок-схемы

---

Надо было сразу писать (я по программам а не по блок-схемам, прости)