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

1

Ответы и объяснения

2014-04-04T16:22:52+04:00
Program pr1;
var a, b, c:integer;
BEGIN
writeln('Мегабайт = ') readln(a);
b:= a * 1024;
c:= b * 1024;
writeln('Килобайт = ', b);
writeln('Байт = ', c);
END.