Задача 2.1
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int input;
cin >> input;
int size1 = abs(input / 100 - input % 100 / 10);
int size2 = abs(input % 100 / 10 - input % 10);
if (size1 == size2){
cout << "YES" << endl;
}else{
cout << "NO" << endl;
}
return 0;
}
Pascal
Var n,k,pr,i,a:longint;
begin
readln(n);
pr:=1;
for i:=1 to n do begin read(a);
if a mod 10=1 then pr:=pr*a;
if a mod 6= 0 then k:=k+1;
end;
writeln('произведение = ',pr);
writeln('количество чисел кратных 2 и 3= ',k);
end.