Задание во вложении. Найти ошибки. Заранее благодарю)

+ 0 -

Albinka1997

11 июля 2016 г., 23:48:44 (7 лет назад)

после первого if в writeln забыли открыть кавычку

во втором if нужно взять условия объединенные and в скобки вот так

if ((a<0) and (b < 0)) or ((a<0) and (c < 0)) or ((c<0) and (b < 0)) then

 и да если есть хотябы одно отрицательное число, то программа выведет соответствующее сообщение и все, если их больше то она этого не выведет, поэтому первый и последний if нужно поменять местами(их условия)

+ 0 -

Sasha00013

12 июля 2016 г., 1:33:32 (7 лет назад)

var
    a, b, c: integer;

begin
    write('Введите числа - ');
    read(a, b, c);
    write('Кол-во чисел меньше нуля - ');
    if (a < 0) and (b < 0) and (c < 0) then
        writeln('3')
    else
    if ((a < 0) and (b < 0))
        or ((a < 0) and (c < 0))
        or ((b < 0) and (c < 0)) then
        writeln('2')
    else if (a < 0) or (b < 0) or (c < 0)     then
        writeln('1')
    else
        writeln('0');
end.