A)
var a,sum,p:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>sum:=a div 10 + a mod 10; </span>
<span>p:=(a div 10) * (a mod 10); </span>
<span>writeln('Сумма цифр числа =',sum); </span>
<span>writeln('Произведение цифр числа =',p); </span>
<span>end.
</span>
б)
var a:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>a:=(a mod 10)*10+a div 10; </span>
<span>writeln(a); </span>
<span>end.</span>
Int arr[100]; //Массив
int N=0; //Кол-во элементов массива
int c=0; //Счётчик
for(int i = 0; i < N; ++i) cin >> arr[i];
for (int i = 0; i < N; ++i) {
if((arr[i] / 10)%10 > arr[i]%10)c++;
}
cout << c;
Порядок (слева на право) крокус, кактус, герань.
Надеюсь что помогла
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.