Question

1. Составьте программу, которая во введенном с клави¬атуры слове заменит букву «А» на букву «И» и, наоборот, букву «И» на букву «А».

Answer 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.