подсчитать количество отрицательных среди a,b,c. Плз помогите. Турбо Паскаль....

Question

подсчитать количество отрицательных среди a,b,c. Плз помогите. Турбо Паскаль....

Алексей Огиков Ученик (94), закрыт 14 лет назад

Дополнен 14 лет назад

Подсчитать количество отрицательных среди чисел а, Ь, с.

Answer 1

uses crt;
var a,b,s,X:real;
Begin
clrscr;
X:=0;
writeln('Введите a,b,c:');
readln(a,b,c);
if a<0 then X:=X+1;
if b<0 then X:=X+1;
if c<0 then X:=X+1;
writeln (X:1:1,'отрицательных чисел');
readln;
end.

Answer 2

Antonio B. Гуру (2696) 14 лет назад

Полное задание в студию!

Answer 3

i:=0;
if a<0 then i:=i+1;
if b<0 then i:=i+1;
if c<0 then i:=i+1;
write(i);