Для какого наибольшего целого неотрицательного числа A выражение
(y >х- A) \/ (x>y-A) \/ (x · y <90)
тождественно истинно при любых целых неотрицательных x и y?

Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.

НА PYTHON

1. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество чисел, которое было введено, без учета нуля.

2. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество троек, которое было введено.

3. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран количество четных и нечетных чисел, которое было введено, без учета нуля.

4. Написать программу, которая будет считывать с клавиатуры числа до тех пор, пока не будет введен 0. После ввода нуля программа должна выдать на экран сумму отдельно четных и отдельно нечетных чисел, которые были введены, без учета нуля.

5. Написать программу, которая будет просить пользователя ввести с клавиатуры любое число. После этого, программа просит вводить числа до тех пор, пока сумма чисел, которые введены, не будет больше или равна первому числу пользователя. Пример работы программы приведен ниже.

6. Написать программу, которая будет просить пользователя ввести число с клавиатуры и выводить на экран все числа, на которые делится это число. Пример работы программы приведен ниже. В программе должен быть использован цикл while и не более одного раза команда if.