Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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.

Ответ оставил Гость

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