Дано натуральное число. Установить является ли последовательность его цифр при просмотре их слева направо упорядоченной по неубыванию. Например, для чисел 5321 и 9663 ответ положительный, для чисел 7820 и 9663 отрицательный и т. п.

Написать программу на паскале, не используя массивы, boolean

Question

Информатика

Андрон

22 ноября, 04:05

Дано натуральное число. Установить является ли последовательность его цифр при просмотре их слева направо упорядоченной по неубыванию. Например, для чисел 5321 и 9663 ответ положительный, для чисел 7820 и 9663 отрицательный и т. п.

Написать программу на паскале, не используя массивы, boolean

+3

Ответы (1)

Знаете ответ на вопрос?

Эллина · Answer 1

Var s: string;

begin

write ('число: ') ; readln (s) ;

if s=s. Sorted. Reverse. JoinIntoString ('') then

writeln ('упорядочено по неубыванию')

else writeln ('НЕ упорядочено') ;

end.