) На известном вам языке программирования напишите программу:
Даны три целых числа. Определить количество положительных чисел.

Код программы:

На 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}')

ответ:

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 - элемент.