Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>
Было: 1 символ - 8 бит
Стало: 1 символ - 16 бит ( в два раза больше)
Всего сообщение увеличилось на 2048 байт, значит первоначальное сообщение (до перекодировки) было в два раза меньше, то есть
2048 байт
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1
-2×=1 ))))((((()))))))))))))