Задание:
С клавиатуры вводится любое слово. Составить программу, с помощью которой все буквы «а» будут заменены буквами"и»
Решение:
Var a: string; i: integer; begin readln (a); for i: =1 to length (a) do if (a[i]='а') then a[i]: ='и'; writeln (a); end.
Знаете другой ответ?