Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.
2
В десятом и четвертом разрядах
A mod 1000= 75 значит b= 750 значит a=1075+(b div 100)=1075+7.5=1082,5
1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы