profile
Опубликовано 4 года назад по предмету Информатика от Whut

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

  1. Ответ
    Ответ дан karimPhoenix
    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. 
    так пойдет?
    1. Ответ
      Ответ дан karimPhoenix
      123-и сразу ответ не верно))) я ведь не просто так z вводил))) тут условия надо отдельно проверять)))
    2. Ответ
      Ответ дан Whut
      спасибо)