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

1

Ответы и объяснения

2013-11-05T20:44:27+04:00
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. 
так пойдет?
123-и сразу ответ не верно))) я ведь не просто так z вводил))) тут условия надо отдельно проверять)))
спасибо)
а когда появляется Отметить лучший ответ?
наверное когда будет их несколько)))
не получается(