Даны четыре вещественных числа. Определить, сколько из них отрицательных.

Question

Информатика

Дормидбнт

23 декабря, 06:20

Даны четыре вещественных числа. Определить, сколько из них отрицательных.

+2

Ответы (1)

Знаете ответ на вопрос?

Фадей · Answer 1

Var

a, b, c, d:real;

k:byte;

Begin

k:=0;

Write ('Введите четыре вещественных числа: ') ;

ReadLn (a, b, c, d) ;

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

if d<0 then k:=k+1;

WriteLn ('Количество отрицательных: ', k) ;

End.