Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
Pokemon2
test16
66
test01
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
Вычисление cos(x) с помошью ряда Тейлора
Area of a Triangle
Circle
test2
Zadanie 3 б
stackse - search stackoverflow differently
Please log in to post a comment.