Создайте программу, которая запрашивает текстовую строку и заменяет букву а на бу-кву о.
Протокол:
Введите строку: Страх и надежда могут убедить человека в чем угодно.
Получилось: Строх и нодеждо могут убедить человеко в чем угодно.
(Вовенарг)
Пж ответ в Паскаль Турбо версия 7.0
Ответы
Ответ дал:
0
//на каком-то старье
var
i: byte;
s: string;
begin
read (s);
for i:=1 to length (s) do if upcase(s[i])='А' then s[i]:='о';
write (s);
end.
var
i: byte;
s: string;
begin
read (s);
for i:=1 to length (s) do if upcase(s[i])='А' then s[i]:='о';
write (s);
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад