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
Huong11a2@
звёздное небо и подсчёт кратных звёзд
practica 7 ejercicio B4
test26
bbbrandomchar_0.1
Poukimone1 tg
kiem_tra_nguyen_to
solar_system_array_n_planets
Первая задание
Data fb Akanshapanchal2000@gmail.com