Написать программу в PascalABC: Определить есть - вопрос №10835677 от зари6а 24.02.2020 14:40

Question

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

зари6а · 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.