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

Question

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

Answer 1

Var
   x,y,z:real;
   k:byte;
Begin
k:=0;
Write('x = ');ReadLn(x);
if x<0 then k:=k+1;<br>Write('y = ');ReadLn(y);
if y<0 then k:=k+1;<br>Write('z = ');ReadLn(z);
if z<0 then k:=k+1;<br>WriteLn('Количество отрицательных,среди введённых: ',k);
End.

Comments

А k это что?

---

Переменная целого типа.

---

Так же, как integer и longint