Ответы
Ответ дал:
0
Ответ дал:
0
Program asd;
Var
n:string;
i:integer;
Begin
Writeln('Введите предложение');
Readln(n);
For i:=1 to length(n) do
Begin
if ((n[i]='к') or (n[i]='К')) and ((n[i+1]='а') or (n[i]='А')) and ((n[i+2]='р') or (n[i]='Р'))
then begin
n[i]:='а'; n[i+1]:='к';
end;
End;
Writeln(n);
End.
Var
n:string;
i:integer;
Begin
Writeln('Введите предложение');
Readln(n);
For i:=1 to length(n) do
Begin
if ((n[i]='к') or (n[i]='К')) and ((n[i+1]='а') or (n[i]='А')) and ((n[i+2]='р') or (n[i]='Р'))
then begin
n[i]:='а'; n[i+1]:='к';
end;
End;
Writeln(n);
End.
Ответ дал:
0
Жаль, что редактировать запретили
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад