.алгоритм вычисления произведение целых чисел
{с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min и max, чтобы потом в цикле было с чем сравнивать}
var
min,max,a:real;
begin
readln(a);
min:=a;max:=a;
while a<>0 do
begin
readln(a);
if a>max then
max:=a;
if a<min then
min:=a;
end;
writeln('min: ',min,' max: ',max);
end.
вот в 6 программа выводит все числа кроме 1 и самого числа #1
x=int(input())
s=0
while x!=0:
x=int(input())
s+=1
print(s)
#2
x=int(input())
s=0
while x!=0:
x=int(input())
if x==3:
s+=1
print(s)
#3
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=1
else:
s1+=1
print('четные-',s,'\n','нечетные-',s1)
#4
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=x
else:
s1+=x
print('четные sum-',s,'\n','sum нечетные-',s1)
#5
s=0
x=int(input())
while s<=x:
y=int(input())
s+=y
if s<=x:
break
#6
x=int(input())
t=x-1
while t>1:
if (x%t)==0:
print(x/t)
t-=1
else:
t-=1