Предмет: Информатика, автор: SaskeU

Помогите пожалуйста!
Дана строка, заменить все буквы о на а
Pasckal ABC


AnonimusPro: буквы о и а русские?
SaskeU: Англ

Ответы

Автор ответа: AnonimusPro
1

var s: string;

i: integer;

begin

readln(s);

for i:=1 to length(s) do

if s[i]='o' then s[i]:='a';

write(s);

end.

Интересные вопросы
Предмет: Математика, автор: крісті4