Question

Задача в паскале.Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)

Answer 1

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. 
так пойдет?