Пишу в питоне :
a= int(input())
b=int(input())
c=int(input())
if a > b and a > c :
print(a)
elif b > a and b > c:
print(b)
elif c > a and c > b :
print(c)
Все числа вводятся через enter!
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2