Среди чисел a, b, c определить количество отрицательных.
Среди чисел a, b, c определить количество отрицательных.
Гость
Ответ(ы) на вопрос:
ГостьProgram One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;
if a < 0 then inc (count);
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
end.
Надеюсь на лучший ответ:)
Не нашли ответ?
Похожие вопросы