Возрастает или нет? pascal abcдано натуральное число n. необходимо определить, является ли последовательность его цифр при просмотре справа налево по возрастанию.формат входных данныхвводится целое число n (1≤n≤231−1формат выходных данныхвыведите «yes», если условие выполняется, и «no» в противном случае.примерывходные данные выходные данные5321----------------------------yes7820----------------------------no

var x, k, a,s, b: integer ;

begin

write ('x=') ; read(x) ;

b: =-1; k: =0; s: =0;

while x> 0 do begin

a: =x mod 10;

if a> b then k: =k+1;

s: =s+1;

x: =x div 10; b: =a;

end;

if k=s then writeln('yes') else writeln('no') ;

end.

Вот если 1 число или более #include < iostream> #include < vector> using namespace std; int main() {       vector< int> a;       bool flag = false;       int n;       cin > > n;       a.resize(n);       for (int i = 0; i < n; ++i) {               cin > > a[i];       }       for (int i = 0; i < n; ++i) {               if (a[i] < 0) {                       flag = true;                       break;               }       }       if (flag)               cout < < "yes";       else               cout < < "no";       return 0; } вот если 2 или более #include < iostream> #include < vector> using namespace std; int main() {       vector< int> a;       bool flag = false;       int n, cnt = 0;       cin > > n;       a.resize(n);       for (int i = 0; i < n; ++i) {               cin > > a[i];       }       for (int i = 0; i < n; ++i) {               if (a[i] < 0) {                       cnt++;                       if (cnt == 2) {                               flag = true;                               break;                       }               }       }       if (flag)               cout < < "yes";       else               cout < < "no";       return 0; }

/*vs c++*/ #include < iostream> using namespace std; int main() {       setlocale(lc_all, "russian");       cout < < "выберите животное: " < < endl;       cout < < "1 - собака" < < endl;       cout < < "2 - петух" < < endl;       cout < < "3 - кот" < < endl;       int a;       cin > > a;       switch (a) {       case 1: {             cout < < "гав-гав." < < endl;             break;       }       case 2: {             cout < < "кукареку." < < endl;             break;       }       case 3: {             cout < < "мяу." < < endl;             break;       }       default: cout < < "животное с таким номером отсутствует! " < < endl;       }       system("pause");       return 0; }