// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
procedure ЗаменаЦифры(Исходное,Заменяющее:int64; var Результат:string);
begin
var ИсхСтрока:=Исходное.ToString;
var ЗамСтрока:=Заменяющее.ToString;
Результат:=ИсхСтрока.Replace(ИсхСтрока.ToCharArray.Max,ЗамСтрока)
end;
begin
var КоличествоЧисел:=ReadInteger('Введите количество чисел для обработки:');
var ОчередноеИсходное,ОчередноеЗаменяющее:int64;
var РезультатЗамены:string;
Loop КоличествоЧисел do begin
Write('Введите исходное целое число: '); Read(Очередноеисходное);
Write('Введите целое число для замены: '); Read(ОчередноеЗаменяющее);
ЗаменаЦифры(ОчередноеИсходное,ОчередноеЗаменяющее,РезультатЗамены);
Writeln('Результат замены: ',РезультатЗамены)
end
end.
Пример
Введите количество чисел для обработки: 5
Введите исходное целое число: 15630
Введите целое число для замены: 8
Результат замены: 15830
Введите исходное целое число: 235235
Введите целое число для замены: 11
Результат замены: 23112311
Введите исходное целое число: 6
Введите целое число для замены: 352
Результат замены: 352
Введите исходное целое число: 999
Введите целое число для замены: 88
Результат замены: 888888
Введите исходное целое число: 12307347740
Введите целое число для замены: 131313
Результат замены: 12301313133413131313131340