Задать вопрос
2 января, 21:52

Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания

+1
Ответы (1)
  1. 2 января, 23:56
    0
    Uses crt;

    const n=8;

    var a:integer;

    b:array[1 ... n] of integer;

    i, k, t:integer;

    begin

    readln (a) ;

    k:=1;

    repeat

    for i:=k to k do

    b[i]:=a mod 10;

    a:=a div 10;

    inc (k) ;

    until a=0;

    t:=0;

    for i:=k-1 downto 2 do

    if (b[i]>b[i-1]) then inc (t) ;

    if t=0 then writeln ('yes') else writeln ('no') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы