<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше
Переведем все в биты.
А)8000 бит
Б)1001 байт=8008 бит
В)1кбайт=1024байта=8192 бит
Г)1мбайте-1024 кбайта,1кбайте-1024 байта,в 1 байте-8 бит,след.1мбайт=1024*1024*8=8388608 бит
8388608*0,001=8388,608 бит
След,ответ Г).
Лазерный диск сканирует, жёсткий диск зачитывает
<span>г) совокупность способностей, знаний, умений и навыков, связанных с пониманием закономерностей информационных процессов в природе, обществе и технике, с современными информационными и коммуникационными технологиями, со способностью и умением использовать средства информационных и коммуникационных технологий при решении задач своей практической деятельности;</span>
В строчке read('a'); апострофов быть не должно. Замени на read(a);