var a: integer;
begin
write('Введите a: ');
readln(a);
if odd(a) then a:=a*a*a else a:=a*a;
writeln(a);
end.
odd(a) - функция, проверяющая нечетность числа. True - если число - нечетное. (Обратная функция not odd(a))
На C++
<span>#include <iostream.h>
const n=10;
void main()
{
int b,A[n]={1,2,3,4,5,6,7,8,9,0};
b=A[n-1];
for(int i=n-2;i>=0;i--)
A[i+1]=A[i];
A[0]=b;
for(i=0; i<n;i++)
cout<< A[i]<<',';
}
</span>
1) пусть первое утверждение истинно.
НЕ походит, так как в этом случае:
второе ложно
третье - истинно.
2) пусть второе истинно и пальм <2017.
первое ложно
третье ложно ( если пальм нет =0<2017)
3) пусть третье истинно, но тогда истинно и первое утверждение.
---------------------------------------------------------
Вывод: количество пальм = 0.