Дана символьная строка всюду букву А поменять на букву В. Pascal.ПОмогите составить программку! Срочно нужно парни и девушки!заранее спасибо
var
s: string;
i: integer;
begin
writeln(Введите строку);
readln(s);
for i:= 1 to length(s) do
if s[i] = A then s[i]:= B; {Меняем каждую найденную большую английскую букву A на большую английскую букву B}
writeln(Полученная строка: , s); //Выводим полученную строку
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
