profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан vladmor
    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.
  2. Ответ
    Ответ дан qwer551
    В килообиты X/1000
    В мегабайты X/1000000
    В гигабайты X/1000000000
    В терабайты X/1000000000000