! Дано целое двузначное число, определить, равны ли его цифры или нет. На языке Паскаль.

program helloworld;

var s: integer;

begin

      writeln('введите число двухзначное: ');

      readln(s);

     

     

      if(s mod 10 = s div 10) then writeln('числа равны! ')

      else writeln('увы! числа не равны! ')

     

end.

Нисколько, это рога.

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
   int n,m,k,cnt;
   for (int i=0; i<4; i++) {
       cout<<"sequential "<<i+1<<endl;
       cout<<"n = ";  cin>>n;
       cout<<"input "<<n<<" numbers:  ";
       cin>>m;  cnt=0;
       for (int j=1; j<n; j++) {
           cin>>k;
           if (k>m) cnt++;
           m=k;
       }      
       cout<<cnt<<endl;
   }    
   system("pause");
   return 0;
}

1)3. 2)1. 3)1. 4)2. 5)3. 6) 1 заголовок окна. 2 основное меню. 3 кнопки управления окном. 4 лента с инструментами. 5 линейка. 6 зоголовок окна. 7 рабочая зона. 7) 1 страница. 2 абзац. 3 строка. 4 фрагмент. 5 слово. 6 символ.