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

Answer 2

123-и сразу ответ не верно))) я ведь не просто так z вводил))) тут условия надо отдельно проверять)))

Answer 3

спасибо)