Составьте программу в Pascal abc, которая с клавиатуры позволяет ввести количество информации в мегабайтах, килобайтах, байтах и битах. В результате нужно получить количество информации в битах.
Например, если тебе сказали, что вечеринка будет в субботу, а на самом деле она назначена на пятницу; если тебе сказали, что поезд отъезжает в 18.00, а его отъезд запланирован в 17.30; если тебе сказали, что день рождения у человека 17 февраля, а оно 19 февраля; если тебе сказали, что у митохондрий нет ДНК (хотя есть); - тебе сообщили недостоверную информацию, т.е. не соответствующую действительности. Ты можешь написать о любом подобном случае.
P.S.: если тебе к примеру сказали, что вечеринка в субботу, и она планировалась на субботу, однако потом её перенесли, то такая информация являлась достоверной, но неустойчивой(меняющейся во времени)
var a: array[1..m, 1..n] of integer; i, j, im, jm, mx, e: integer;
begin Randomize; mx := -1000; for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(100) - 50; e := abs(a[i, j]); if mx < e then begin mx := e; im := i; jm := j end; write(a[i,j]:4) end; writeln end; writeln; writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx) end.
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.