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

Вводятся три числа и программа вычисляет количество

тех из них, которые больше 0 и выводит эту сумму на экран.

Answer 2

Вводятся три числа, программа выдает КОЛИЧЕСТВО чисел, которые больше ноля.