Программа на паскале
var a,b:real;
begin
write('a = ');
readln(a);
b:=frac(a)*100+trunc(a)/100;
writeln('b = ',b);
end.
Пример:
a = 12.34
b = 34.12
12 Мбайт = 12*1024 Кбайт = 12*1024*1024 байт = 12*2^10*2^10*8 бит
1. t1 = 13+0,25*(<span>12*2^10*2^10*8)/2^21+3 = 13+0,25*(12*8)/2+3 = 13+12+3 = 28 сек
2. t2 = (</span>12*2^10*2^10*8)<span>/2^21 = 12*8/2 = 48 сек
Первый способ быстрее на 48-28 = 20 сек</span>
<span>Write (с англ. писать) - оператор, который используется для вывода информации на экран (в консоль). Есть еще его аналог, оператор WriteLn, который делает то же самое что и Write, только после этого переносит каретку на начало следующей строки.</span>
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.