Question

Пользователь вводит объем информации в байтах. Перевести это число в Кб, Мб, Гб, Тб (Var x, a, b, c; REAL;)

Answer 1

Var a: integer;
begin
  readln(a);
  writeln(a,' в Кбайтах = ', a/1024);
  writeln(a,' в Mбайтах = ', a/1024/1024);
  writeln(a,' в Тбайтах = ', a/1024/1024/1024);
  writeln(a,' в Гбайтах = ', a/1024/1024/1024/1024);
end.

Answer 2

В килообиты X/1000
В мегабайты X/1000000
В гигабайты X/1000000000
В терабайты X/1000000000000 

Answer 3

Для перевода объема информации из байтов в килобайты (Кб), мегабайты (Мб), гигабайты (Гб) и терабайты (Тб) можно использовать следующие формулы:

1 Кб = 1024 байт 1 Мб = 1024 Кб 1 Гб = 1024 Мб 1 Тб = 1024 Гб

Теперь давайте напишем программу на языке программирования, чтобы перевести введенное пользователем значение в байтах в Кб, Мб, Гб и Тб.

Var x, a, b, c: REAL;

Begin Write('Введите объем информации в байтах: '); Readln(x);

a := x / 1024; // переводим в Кб b := a / 1024; // переводим в Мб c := b / 1024; // переводим в Гб

WriteLn('Объем информации в Кб: ', a:0:2); WriteLn('Объем информации в Мб: ', b:0:2); WriteLn('Объем информации в Гб: ', c:0:2); WriteLn('Объем информации в Тб: ', c / 1024:0:2); End.

Пользователь вводит объем информации в байтах, программа переводит это число в Кб, Мб, Гб и Тб, и выводит результаты.