Даны действительные числа x, y, z. Сколько среди них отрицательных? Паскаль abc
Даны действительные числа x, y, z. Сколько среди них отрицательных? Паскаль abc
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы