Question

Составьте программу в Pascal abc, которая с клавиатуры позволяет ввести количество информации в мегабайтах, килобайтах, байтах и битах. В результате нужно получить количество информации в битах.

Answer 1

Ответ:

var mb,kb,byte,bit, result : Real;

begin

write('Mb. = '); readln(mb);

write('Kb. = '); readln(kb);

write('Byte = '); readln(byte);

write('Bit = '); readln(bit);

result := mb * 1014 * 1024 * 8;

result := result + (kb * 1024 * 8);

result := result + (byte * 8);

result := result + bit;

writeln(result:0:2);

end.