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

Question

Информатика

Филонилла

9 мая, 16:49

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

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