Опубликовано 26.01.2018 по предмету Информатика от Гость

Паскаль С помощью процедуры заменить максимальную цифру для пяти чисел на заданное число С(можно для одного числа)

Ответ оставил Гость

// 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