Впаскале. ввести натуральное число n. проверить, расположены ли его цифры в порядке неубывания. решить не через массив. (циклами)

265

423

Посмотреть ответы 2

Ответы на вопрос:

3296121116i

Информатика

4,7(5 оценок)

Uses crt; var i,a,s,min: integer; begin write('vvedite 4islo: '); read(a); s: =0; min: =a mod 10; while a> =1 do begin i: =a mod 10; a: =a div 10; if i> min then s: =s+1; end; if s> 0 then write('ne verno') else write('4islo zapisano verno'); read; end. так пойдет?