Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
4546
program pr12c; var i,p,n,mini:integer; begin write('Введите число: '); readln(n); mini:=10; while n <> 0 do begin p:=n mod 10; n:=n div 10; if p<mini then mini:=p; end; writeln('Наибольшая цифра: ',mini); end.
run
|
edit
|
history
|
help
0
LETICIA VIEIRA TEIXEIRA 600618795
practica 9 ejercicio 10
practica 7 ejercicio B3
7
task 2
Ex5b20
For6
nomer4
08 for
test20