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

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

1

Ответы и объяснения

Лучший Ответ!
2014-03-13T14:22:00+00:00
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.