Задача в паскале.Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)
Задача в паскале.
Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.
Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)
Гость
Ответ(ы) на вопрос:
Гость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.
так пойдет?
Не нашли ответ?
Похожие вопросы