program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
begin
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
begin
for j:=1 to 20 do
if a[i,j] = 'а'
then a[i,j]:= 'о';
for j:=1 to 20 do
if j <> 1
then
begin
a[i,1]:= a[i,1] + a[i,j];
a[i,j]:= '';
end;
writeln(a[i,1]);
end;
end.
Если нужна программа, то вот
1. Наполнить 8-литровый
2. Перелить в 3-литровый (в 8-литровом останется 5)
3. Вылить из 3-литрового
4. Снова перелить в 3-литровый (в 8-литровом останется 2)
5. Вылить из 3-литрового и в него снова перелить из 8-литрового оставшиеся 2 литра.
6. Наполнить 8-литровый
7. Перелить из 8-литрового в 3-литровый, где есть 2 литра. Т.е.в 3-литровый наливается 1 литр.
Соответственно в 8-литровом остаётся 7 литров.
<span>Объект, который указывает на текущее место в документе, называется курсор.</span>