Найти максимальную цифру натурального числа n. паскаль - вопрос №1228860 от ilyabes1998 19.01.2020 09:47

Question

Информатика: Найти максимальную цифру натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном числе. sample input sample output 375859 9 123856387 8

ilyabes1998 · Answer

var n,max,l: integer; begin  readln(n); max := -1000; while n 0 do begin l:= n mod 10; if l max then max := l; n := n div 10; end; writeln(max); end.Объяснение:...