Составить программу, печатающую значение 1, если указанное высказывание является истинным, и 0 в противном случае: цифры данного двузначного числа N образуют строго возрастающую последовательность

Question

Информатика

Косьма

14 октября, 21:21

Составить программу, печатающую значение 1, если указанное высказывание является истинным, и 0 в противном случае: цифры данного двузначного числа N образуют строго возрастающую последовательность

+3

Ответы (1)

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

Артеша · Answer 1

Реализация на паскале:

var n:integer;

begin

repeat

readln (n) ;

until (n > 9) and (n < 100) ;

if n mod 10 > n div 10 then writeln ('1')

else writeln ('0') ;

end.