uses crt; var a,min: integer; n: longint; begin clrscr; min:=9; write('Vvedite chislo: '); readln(n); a:=n mod 10; repeat if a<min then min:=a; a:=n mod 10; n:=n div 10; until n=0; if a<min then min:=a; write('minimalnaya zifra: ',min); readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
