Выберите верные утверждения: а) подмножества объектов выделяет и означает сам объект; б) попарно связаны одним и тем же отношением могут быть только два объекта; в) имя отношения обозначает характер этой связи; г) связи между объектами можно изобразить кругами, овалами, стрелками, линиями; д) отношение могут существовать между объектов и множеством объектов; е) подмножество объектов, имеющих общие признаки, называется классом. ВАРИАНТЫ ОТВЕТА: 1) в, д, е; 2) а, в, д, е; 3) а, в, д; 4) д, е, г.
n, m, d: integer;
begin
Write('Введите трехзначное число: ');
Readln(n);
if (n < 100) or (n > 999) then
Writeln('У Вас странное представление о трехзначных числах!')
else begin
d := n div 100; {старшая}
n := n mod 100;
m := n div 10; {средняя}
n := n mod 10; {младшая}
if (m > d) and (n > m) then
Writeln('Цифры следуют в возрастающей последовательности')
else if (m < d) and (n < m) then
Writeln('Цифры следуют в убывающей последовательности')
else Writeln('Цифры не образуют монотонную последовательность')
end
end.
Тестовое решение:
Введите трехзначное число: 159
Цифры следуют в возрастающей последовательности