Решить задачку в паскале составьте алгоритм замены в какой-нибудь литерной величине всех букв "а" на буквы "б" и наоборот (при такой замене, например, из слова "баба" должно получиться слово "абаб") выведите полученную строку на экран

Question

Информатика

Протас

10 декабря, 15:23

Решить задачку в паскале составьте алгоритм замены в какой-нибудь литерной величине всех букв "а" на буквы "б" и наоборот (при такой замене, например, из слова "баба" должно получиться слово "абаб") выведите полученную строку на экран

+1

Ответы (1)

Знаете ответ на вопрос?

Пров · Answer 1

Var s:string;

i:integer;

begin

readln (s) ;

for i:=1 to length (s) do

if s[i]='а' then s[i]:='б'

else

if s[i]='б' then s[i]:='а';

writeln (s) ;

end.