...............ПЛИЗ.................Что вычисляет приведённая ниже программа? Program...

Question

...............ПЛИЗ.................
Что вычисляет приведённая ниже программа?

Program example;

Var x,y,z,I :integer;

Begin

ReadLn(a,b,c);

i:=0;

If a>0 then i:=i+1;

If b>0 then i:=i+1;

If c>0 then i:=i+1;

WriteLn(i)

End.

Answer 1

Вычисляет количество положительных чисел