Var a, i, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
i := a;
while (i <= b) do
begin
writeln(i, ' ', sqr(i));
inc(i);
end;
<span>end.
В одной программе оба подхода =)</span>
Чтобы передавать информацию разного рода между удаленными устройствами связи
б) Спросить одного из них- "Что бы ответил твой, если бы его спросили, какая дорога идет к озеру ?"
Ответ по любому будет лживым и значит надо выбрать не ту дорогу которую указали
А - <span>11100001 - 225
б - </span>11100010 - 226<span>
а - </span><span>11100001 - 225
к - </span><span>11101011 - 235
С - </span><span>11110011 - 243
о - </span>11101111 - 239<span>
р - </span>11110010 - 242<span>
о - </span>11101111 - 239<span>
б - </span>11100010 - 226<span>
а - </span>11100001 - 225<span>
н - </span>11101110 - 238