Движение робота по линии. Урок 1 Рис. 1 Рис. 2 Рис. 3 Рис. 4 - id1688155720230405 от alenalevkika79 05.04.2023 22:58

Question

Информатика: Движение робота по линии. Урок 1 Рис. 1 Рис. 2 Рис. 3 Рис. 4 ​

alenalevkika79 · Accepted Answer

Программа с массивом (хотя он тут и не нужен):
var a:array[1..60] of char;
st:string; i,p:integer;
begin
writeln('Введите массив символов:');
readln(st);
writeln('Вот массив:');
for i:=1 to length(st) do
begin
a[i]:=st[i];
write(a[i]);
end;
writeln;
st:=' '+st+' ';
p:=pos(' mama ',st);
while p>0 do
begin
delete(st,p,6);
insert(' ded ',st,p);
p:=pos(' mama ',st);
end;
writeln('Измененный массив:');
for i:=1 to length(st)-2 do
begin
a[i]:=st[i+1];
write(a[i]);
end;
writeln;
end.

Пример:
Введите массив символов:
mama papa okno mama primer baba
Вот массив:
mama papa okno mama primer baba
Измененный массив:
ded papa okno ded primer baba

Движение робота по линии. Урок 1Рис. 1Рис. 2Рис. 3Рис. 4​

MOGZ ответил

Движение робота по линии. Урок 1

Рис. 1

Рис. 2

Рис. 3

Рис. 4