Программа Паскаль.
Напишите программу, которая вводит трехзначное целое число и выводит ответ 'да', если все цифры в его записи расположены в порядке возрастания.
Напишите программу, которая вводит трехзначное целое число и выводит ответ 'да', если все цифры в его записи расположены в порядке возрастания.
Answers & Comments
Ответ:
var
x, a, b, c : integer;
begin
writeln('Введите число ');
readln(x);
a := x div 100;
b := (x-a*100) div 10;
c := x- a*100 - b *10;
if (a < b) and (b < c) then
writeln('Да')
else
writeln('Нет')
end.