Подсчитать количество положительных чисел среди чисел a, b, c

Question

Информатика

Демид

10 августа, 12:10

Подсчитать количество положительных чисел среди чисел a, b, c

+4

Ответы (1)

Знаете ответ?

Викула · Answer 1

var

a, b, c, ans:integer;

begin

readln (a, b, c) ;

ans : = 0;

if (a>0) then inc (ans) ;

if (b>0) then inc (ans) ;

if (c>0) then inc (ans) ;

writeln (ans) ;

readln;

end.