1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC

Program task1;
var  number, max, min, ost, digit :integer;
begin
  readln(number);  max:= 0; min:= 9;  while number > 0 do  begin    digit:= number mod 10;    if digit < min then      min:= digit;    if digit > max then      max:= digit;    number:= number div 10;  end;  writeln(Минимальная цифра: ,min);  writeln(Максимальная цифра: ,max);
end.

program task2;
var  number, digit, sum, p :integer;
begin
  readln(number);  sum:= 0; p:= 1;  while number > 0 do  begin    digit:= number mod 10;    sum:= sum + digit;    p:= p * digit;    number:= number div 10;  end;  sum:= sum * 3;  if sum > p then    writeln(Утроенная сумма больше произведения);  if p > sum then    writeln(Произведение больше утроенного произведения);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.