Написать программу в PascalABC: Определить есть - вопрос №10836077 от EvaCat777 25.04.2023 16:14

Question

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

EvaCat777 · 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.