Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
222
var N, digit, maxDigit: longint; begin readln(N); maxDigit := N mod 10; while N > 0 do begin digit := N mod 10; if digit mod 5 = 0 then maxDigit := digit; N := N div 10; end; if maxDigit = 0 then writeln('NO') else writeln(maxDigit) end.
run
|
edit
|
history
|
help
0
Сумма пар чисел кратных и некратных 11
Ejercicio SQRT
считалочка02
binary_search-бинарный_поиск
Why does not work?
SmallQuest
eje8
zadanye 4
practica 5 ejercicio 8
practica 3 ejercicio 9