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

Question

Информатика

Ниноша

26 июня, 10:08

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

+3

Ответы (1)

Знаете ответ?

Ириней · Answer 1

Program testabc;

var x, y, z:real;

i:integer;

begin

i:=0;

writeln ('Введите 3 числа: ') ;

readln (x, y, z) ;

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

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

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

Writeln (i,' отрицательных') ;

end.