Var a,b,c:Integer; begin Read(a,b,c); if (a<b) and (b<c) then WriteLn('В порядке возрастания') else if (a>b) and (b>c) then WriteLn('В порядке убывания') else WriteLn('Нет'); end. Нажимаем "лучший ответ"
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
