Написать программу в PascalABC: Определить есть - вопрос №10835902 от g3force 10.01.2022 18:56

Question

Информатика: Написать программу в PascalABC: Определить есть ли среди чисел х, у, z, хотя бы одно отрицательное, если среди них есть отрицательные то посчитать их кол-во

g3force · Answer

begin

var count := 0;

var num := 0;

repeat

var a := ReadInteger;

Inc(num);

if a < 0 then

Inc(count);

until num = 3;

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

end.