Задать вопрос
12 октября, 21:37

Напишите программу для паскаль! Дано натуральное число. Установить, является ли последовательность его цифр при просмторе их справа налево упорядоченной по возрастанию.

+1
Ответы (1)
  1. 13 октября, 01:25
    0
    Var n, k:integer; b:boolean;

    begin

    write ('n=') ; readln (n) ;

    b:=true; k:=0;

    while n0 do

    begin

    b:=b and (n mod 10>k) ;

    k:=n mod 10;

    n:=n div 10;

    end;

    if b then writeln ('Цифры числа упорядочены')

    else writeln ('Цифры числа не упорядочены') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу для паскаль! Дано натуральное число. Установить, является ли последовательность его цифр при просмторе их справа налево ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы