Question

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

Answer 1

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

Answer 2

Введите количество чисел для обработки: 1
Введите исходное целое число: -35280184
Введите целое число для замены: 66
Результат замены: -3526601664

Answer 3

Отрицательные заменяющие, ясное дело, "число" портят

Answer 4

Введите количество чисел для обработки: 1
Введите исходное целое число: 232842805
Введите целое число для замены: -99
Результат замены: 232-9942-9905

Answer 5

Спасибо, но мне нужна прога другого типа(var a:integer и т.д)

Answer 6

Я Ваши мысли читать не могу. Если Вам нужна конкретная версия/диалект паскаля или программа с какими-то ограничениями на синтаксис - об этом пишут в условии, а не получив ответ.