Написать программу в которой будет меняться буква А на букву Б (слово можно любое подобрать, например ШАЛАШ)

1

Ответы и объяснения

2014-01-14T20:38:09+00:00
Program gt;
var a:string;
l,i:integer;
begin
readln(A);
l:=length(A);
for i:=1 to l do
begin
if(a[i]='А')then a[i]:='Б';
end;
writeln(a);
end.