Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Question

Информатика

Павлиня

23 февраля, 11:50

Даны три целых числа. Найти количество положительных чисел в исходном наборе.

+3

Ответы (1)

Знаете ответ на вопрос?

Голиндуха · Answer 1

Program one;

var a, b, c, k: integer;

begin

writeln ('Введите числа, нажимая после каждого enter') ;

readln (a) ;

readln (b) ;

readln (c) ;

k:=0;

If a>0 then k:=k+1 else k:=k+0;

If b>0 then k:=k+1 else k:=k+0;

If c>0 then k:=k+1 else k:=k+0;

writeln ('Количество положительных чисел ', k)

end.