1. Составьте программу, которая во введенном с клави¬атуры слове заменит букву «А» на букву «И» и, наоборот, букву «И» на букву «А».
1. Составьте программу, которая во введенном с клави¬атуры слове заменит букву «А» на букву «И» и, наоборот, букву «И» на букву «А».
Гость
Ответ(ы) на вопрос:
Гостьvar
s:string;
i:integer;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')then s[i]:='И' else
if (s[i]='а')then s[i]:='и' else
if (s[i]='И')then s[i]:='А' else
if (s[i]='и')then s[i]:='а';
writeln(s);
end.
Не нашли ответ?
Похожие вопросы