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

1

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

2014-04-04T13:30:21+00:00
Var a, c: real;

begin
writeln('Введите число в мегабайтах');
 readln(a);c := a;

if a>0 then
begin

a := a/1024;
c := a/1024;

writeln('Число в килобайтах:'); write(a);
writeln('Число в байтах:'); write(c);
end

else
writeln('Введите положительное число')

end.