Ответ учителя по предмету Информатика
// PascalABC.NET (версия 3.2, сборка 1363)
const
RM = ‘ем’;
var
c, n: char;
seq: boolean := False;
s: string := ‘Земля — планета солнечной системы’;
begin
writeln(s);
for var i := 1 to (length(s) -1) do
begin
c := s[i];
n := s[i+1];
if seq = True then
begin
seq := False;
continue;
end;
if (c = RM[1]) and (n = RM[2]) then
begin
seq := True;
continue;
end
else
begin
seq := False;
write(c);
end;
end;
write(s[length(s)]);
end.
Похожие вопросы от пользователей
1920 : m = 30 ( 2564 + 516) : v = 154
n : 200 = 93 12000 : ( w + 175 ) = 24
помогите пожалуйста за 15 б