Задача на составление алгоритма неполного ветвления
Даны три целых числа А,В,С. Найти количество положительных чисел в исходном наборе.
РЕШИТЬ НА КУМИРЕ.

Если не разделять понятия неотрицательных и положительных, то этот код:

Var

A,B,C,P,O:integer;

Begin

P:=0;

O:=0;

WriteLn('Введи три числа');

ReadLn(A,B,C);

if A>=0 then P:=P+1

else O:=O+1;

if B>=0 then P:=P+1

else O:=O+1;

if C>=0 then P:=P+1

else O:=O+1;

WriteLn('Положительных чисел ',P);

WriteLn('Отрицательных чисел ',O)

End.

Если разделять, то этот:

Var A,B,C,P,O,N:integer;

Begin

P:=0;

O:=0;

N:=0;

WriteLn('Введи три числа');

ReadLn(A,B,C);

if A=0 then N:=N+1

else

if A>0 then P:=P+1

else O:=O+1;

if B=0 then N:=N+1

else

if B>0 then P:=P+1

else O:=O+1;

if C=0 then N:=N+1

else

if C>0 then P:=P+1

else O:=O+1;

WriteLn('Положительных чисел ',P);

WriteLn('Отрицательных чисел ',O);

WriteLn('Нулей ',N)

End.

Объяснение: