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