Протокол передачи данных, TCP/IP
Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
Ярлыки-32
Значков-25
И ад, я ванга(но это не точно)
1. Так как ничего другое не подходит под описание задания.
Const
n = 20;
var
i, e: integer;
f: file of integer;
begin
Randomize;
Assign(f, 'output.txt');
Rewrite(f);
writeln('Исходный файл');
for i := 1 to n do
begin
e := Random(20) - 10;
write(f, e);
write(e:4)
end;
Close(f);
Reset(f);
writeln;
writeln('Обработанный файл');
i := 0;
while not Eof(f) do
begin
read(f, e);
i := i + 1;
if i mod 2 <> 0 then begin
seek(f, i-1);
write(f, 1);
seek(f, i-1);
read(f, e)
end;
write(e:4)
end
end.
Тестовое решение:
Исходный файл
-6 4 -3 -7 6 -1 -4 8 -7 -5 5 -10 5 -1 -9 -7 -5 -1 9 8
Обработанный файл
1 4 1 -7 1 -1 1 8 1 -5 1 -10 1 -1 1 -7 1 -1 1 8
