Даны действительные числа x, y, z. Сколько среди них отрицательных? Паскаль abc

Question

Информатика

Никон

30 мая, 21:19

Даны действительные числа x, y, z. Сколько среди них отрицательных? Паскаль abc

+1

Ответы (1)

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

Геннаша · Answer 1

Var

x, y, z:real;

k:byte;

Begin

k:=0;

Write ('x = ') ; ReadLn (x) ;

if x<0 then k:=k+1;

Write ('y = ') ; ReadLn (y) ;

if y<0 then k:=k+1;

Write ('z = ') ; ReadLn (z) ;

if z<0 then k:=k+1;

WriteLn ('Количество отрицательных, среди введённых: ', k) ;

End.