PascalABC.NET:
begin Println('Количество:', ReadArrInteger(3).Count(x -> x > 0));end.Объяснение:Println(a,b) - выводит на экран a и b, разделяя их пробелом.
ReadArrInteger(3) - возвращает массив из 3 введённых чисел.
.Count(x -> x > 0) - считает количество элементов массива, удовлетворяющим условию x > 0, где x - элемент.
# 1.
# Полагаю, что в техническом задании ошибка и считаю фразу "делятся на" фразой "целочисленно делятся на".
def IsDivisible(digit, n): return (digit % n == 0)
digits=range(20, 50 + 1)
required=[str(digit) for digit in digits if IsDivisible(digit, 2) and not IsDivisible(digit, 5)]
print("Result:\n", '\n'.join(required))
# 2.
# Боль от запятой. Голову изломал от этого дробного остатка...
digits=range(35, 87 + 1)
required=[str(digit) for digit in digits if digit % 7 == 1 or digit % 7 == 2 or digit % 7 == 5]
print("Result:\n", '\n'.join(required))
На Pascal:
var a,b,c,count:integer;
begin
readln(a);
readln(b);
readln(c);
count := 0;
if a > 0 then begin
count := count + 1
end;
if b > 0 then begin
count := count + 1
end;
if c > 0 then begin
count := count + 1
end;
writeln(count);
end.
На Python:
a = int(input())
b = int(input())
c = int(input())
count = 0
if a > 0:
count = count + 1
if b > 0:
count = count + 1
if c > 0:
count = count + 1
print(count)
Еще Python:
p = 0
for i in range(1,4):
n = int(input())
if n > 0:
p += 1
print(f'Количество положительных чисел {p}')