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;
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.

Answer 2

А k это что?

Answer 3

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