Задание:
ABCpaskal: С клавиатуры вводится строка. Составить программу, которая заменяет все буквы а на о. Помогите! СРОЧНО!
Решение:
Program tmp; uses crt; var st: string; i: integer; beginclrscr; write (vvedite stroku: '); readln (st); for i: =1 to length (st) dobegin if st[i]='a' then st[i]: ='o'; end; writeln (st); readkey; end.
Знаете другой ответ?