гогногнонго
Опубликовано 6 лет назад по предмету Информатика от гогногнонго


Дано целое число, состоящее из разных цифр. Определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа. ЧЕРЕЗ ПАСКАЛЬ!!!!

  1. Ответ
    Ответ дан Disaczar
    var num, Mnum:integer;beginMnum := 0;readln(num);while num <> 0 dobeginif abs(num mod 10) > Mnun thenMnum := abs(num mod 10);num := num div 10;end;writeln(Mnum);end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц