Question

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

Answer 1

1мбайт = 1024 кбайт
1кбайт = 1024 байт
1 байт = 8 бит

var a:real;
begin
writeln('cislo megabaitov=');
readln(a);
writeln('cislo bit=',a*1024*1024*8);
readln;
end.