Составить программу на языке Turbo
Pascal, меняющую в заданной строке местами первую букву “a”
и первую букву “b” и выводящую соответствующее сообщение, если хотя бы одной из
них нет.
Вот пример в Pascal ABC:
program Decision;
var
s: string;
a, b, i: integer;
buf: char;
begin
a := 0;
b := 0;
Write('Введите строку: ');
Readln(s);
for i := 1 to Length(s) do
begin
if (a = 0) and (s[i] = 'a') then
a := i;
if (b = 0) and (s[i] = 'b') then
b := i;
end;
if (a = 0) or (b = 0) then
Write('В строке нет одной из букв. ')
else
begin
buf := s[a];
s[a] := s[b];
s[b] := buf;
Write('Преобразованная строка: ', s);
end;
Readln;
end.
var s:string; i,j:integer;
begin
write('String: '); readln(s); i:=pos('a',s); j:=pos('b',s);
if i*j<>0 then begin s[i]:='b'; s[j]:='a'; writeln(s) end
else writeln('Impossible!'); readln
end.
⇢