С клавиатуры вводятся 3 числа. сколько среди них положительных?

Нужно решать либо с if или с case

Question

Информатика

Оза

2 апреля, 21:21

С клавиатуры вводятся 3 числа. сколько среди них положительных?

Нужно решать либо с if или с case

+4

Ответы (1)

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

Марьюшка · Answer 1

Program q;

var mult, a, b, c:integer;

begin

write ('введите 3 числа') ;

read (a, b, c) ;

mult:=0;

if a>0 then

mult:=mult+1

else mult:=mult;

end;

if b>0 then

mult:=mult+1

else mult:=mult;

if c>0 then

mult"=mult+1

else mult:=mult;

end;

writeln ('положительных ', mult, ' чисел') ;

end.

С клавиатуры вводятся 3 числа. сколько среди них положительных?Нужно решать либо с if или с case

С клавиатуры вводятся 3 числа. сколько среди них положительных?

Нужно решать либо с if или с case