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

Question

Информатика

Марися

3 июля, 19:11

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

+3

Ответы (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.