Пример таблицы (с 5 товарами) - в прилагаемом файле.
1) пусть первое утверждение истинно.
НЕ походит, так как в этом случае:
второе ложно
третье - истинно.
2) пусть второе истинно и пальм <2017.
первое ложно
третье ложно ( если пальм нет =0<2017)
3) пусть третье истинно, но тогда истинно и первое утверждение.
---------------------------------------------------------
Вывод: количество пальм = 0.
4, там через тире написано
истинность это верный/неверный?если так то верный
<em>
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>begin
var a:=ReadReal('a=');
if a>0 then Writeln(0.4*ln(a):0:4)
else Writeln('Логарифм не существует')
end.
<u>Пример</u>a= 2.543
0.3733
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');