Выбери верный ответ. Программа, выводящая 23 раз слово Russia . var i : integer; begin for i := 1 downto - id1262948120211212 от gogolevap1 12.12.2021 14:55

Question

Информатика: Выбери верный ответ. Программа, выводящая 23 раз слово Russia . var i : integer; begin for i := 1 downto 23 writeln ( Russia ); readln; end. var i : integer; begin i := 1 to 23 do writeln ( Russia ); readln; end. var i : integer; begin for i := 1 to 23 do writeln ( Russia ); readln; end. var i : integer; begin for i := 1 to 23 do readln; end.

gogolevap1 · Accepted Answer

Var i,j: integer;
chislo: string;
begin
chislo:='12323';
for j:=1 to 14 do
begin
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='1' then begin delete(chislo,i,1);insert('33',chislo,i); inc(i); end;
   inc(i);
   end;
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='2' then begin delete(chislo,i,1);insert('1',chislo,i); end;
   inc(i);
   end;
i:=1;
while i<=length(chislo) do
   begin
   if copy(chislo,i,1)='3' then begin delete(chislo,i,1);insert('2',chislo,i); end;
   inc(i);
   end;
end;
Writeln(chislo);
readln;
end.

MOGZ ответил