Дано 3-х значное число. определить образуют ли цифры последовательность.

Var   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 цифры следуют в возрастающей последовательности

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

           

            i                    с                 i            i с                                  c i

            i                  с                     i

           

 

            c -  cтул

            4 стула поставить по углам комнаты, а еще 4 - по одному у каждой стены.