Pascal abc составить программу, которая определяет подходит кандидат на работу или нет. возраст: не больше 50, не меньше 17 стаж: не менее 3-х лет даны три числа, определить сколько чётных является ли 4-х значное число палендромом

var

  age : integer;

begin

  read (age);

  if (age > 50) or (age < 17) then writeln ('no') else writeln ('yes');

end.

 

var

  a, b, c, count : integer;

begin

  read (a, b, c);

  count : = 3 - a mod 2 - b mod 2 - c mod 2;

  writeln (count);

end.

 

var

  k : integer;

begin

  read (k);

  if (k mod 1000 div 100 = k mod 100 div 10) and (k div 1000 = k mod 10) then writeln ('yes')       else writeln ('no');

end.

#include <iostream>

using namespace std;

int main()

{

   int a,b,c;

   cout<<"Введите 1-ое число"<<endl;

   cin>>a;

   cout<<"Введите 2-ое число"<<endl;

   cin>>b;

   cout<<"Введите 3-ое число"<<endl;

   cin>>c;

   if((a>b) && (a>c))

   cout<<"Наибольшее число "<<a;

   if((b>a) && (b>c))

   cout<<"Наибольшее число "<<b;

   if((c>a) && (c>b))

   cout<<"Наибольшее число "<<c;

   return 0;

}

Если русский язык не поддерживает, добавьте в main строчку: setlocale(LC_ALL,"Russian");

#include <iostream>

using namespace std;

int main()

{

   int a,b,c;

   cout<<"Введите 1-ое число"<<endl;

   cin>>a;

   cout<<"Введите 2-ое число"<<endl;

   cin>>b;

   cout<<"Введите 3-ое число"<<endl;

   cin>>c;

   if((a>b) && (a>c))

   cout<<"Наибольшее число "<<a;

   if((b>a) && (b>c))

   cout<<"Наибольшее число "<<b;

   if((c>a) && (c>b))

   cout<<"Наибольшее число "<<c;

   return 0;

}

Если русский язык не поддерживает, добавьте в main строчку: setlocale(LC_ALL,"Russian");