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

Question

Информатика

Степура

10 марта, 05:19

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

+2

Ответы (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.