Задать вопрос
8 октября, 21:14

1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc

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

+1
Ответы (1)
  1. 8 октября, 21:37
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc 2) дано четырёхзначное число. Что больше: произведение ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы