Предмет: Информатика,
автор: Аноним
Дано натуральное чсло N.Составте программу, которая определяет, является ли последовательность цифр этого числа ( при просмотре их справа налево) упорядоченной по возрастанию.
Ответы
Автор ответа:
0
var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: 123pipisss
Предмет: Русский язык,
автор: derbisenlik06
Предмет: Қазақ тiлi,
автор: sakishsadvakasova
Предмет: Геометрия,
автор: 260898lena