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.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
uses Arrays;
begin
var S := CreateRandomIntegerArray(10,4,33);
writeln('Массив: ', S);
writeln('Индексы массива начинаются с 0!');
writeln('Минимальный элемент: ', S.Min, '. Индекс: ', S.IndexOf(S.Min));
writeln('Максимальный элемент: ', S.Max, '. Индекс: ', S.IndexOf(S.Max));
end.
ТУРАГЕНТСТВО
id - integer (счетчик, ключ)
название тура - varchar
список стран - varchar
стоимость - float
ВИДЕОТЕКА
id - integer (счетчик, ключ)
название фильма - varchar
оргинальное название - varchar
год выпуска - integer
стоимость - float
АВТОСАЛОН
id - integer (счетчик, ключ)
марка машины - varchar
производитель - varchar
цвет - varchar
год выпуска - integer
стоимость - float
РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar