1. Составьте программу, которая во введенном с клави¬атуры слове заменит букву «А» на букву «И» и, наоборот, букву «И» на букву «А».
Ответы на вопрос
Ответил VlaNik
0
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.
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.
Новые вопросы
Українська мова,
2 года назад
Другие предметы,
2 года назад
Биология,
9 лет назад
Геометрия,
9 лет назад
Физика,
9 лет назад