Дана строка написать программу заменяющую в строке все буквы а на букву о
Поскольку по условию задачи непонятно, на каком языке написана строка, то я написал программу, заменяющую АНГЛИЙСКУЮ "а" на АНГЛИЙСКУЮ "о". Если на другом языке - то программу можно переделать...
uses Crt;
var i : integer;
S, Snew : string;
begin
ClrScr;
Write (S = ); ReadLn(S);
Snew := ;
for i:=1 to length(S) do
if S[i]=a then Snew:=Snew+o
else Snew:= Snew+S[i];
WriteLn (S);
WriteLn (Snew);
ReadLn;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
