Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
readln(a, y);
if (a > y) then
begin
x := a / 100;
writeln(x);
end;
if (a < y) then
begin
k := 100 * abs(a);
writeln(k);
end;
<span>end.</span>
Рано, к примеру,больше показателя на ум не приходит
1. Примером чисел, которые принадлежат данной области и ошибочно не учитываются данной программой являются числа в 3й четверти выше y=x, например, (-0.5, -0.1), а также в 1-й четверти, например, (1, 1)
2. Программа на Паскале прилагается.
16=2*8 (16 бит > 8 бит в 2 раза) 8бит =1 байту
Сообщение после перекодировки становится в два раза длиннее и равно =
= х+2 =2х
x=2 Кбайта в ASCII
4 Кбайта в Unicode
Количество символов в сообщении:
2 Кбайта : 1 байт =2 *2^10 байт : 1байт=2^11 символов =2048 символов в сообщении