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

Question

Информатика

Федюня

5 мая, 21:38

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

+2

Ответы (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.