Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
А k это что?
Ответ дал:
0
Так же, как integer и longint
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад