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