Задание во вложении. Нужно найти ошибки. У меня не определяет, когда одно и два отрицательных. Заранее спасибо)))

+ 0 -

Vickaazarenko

09 мая 2013 г., 11:24:55 (10 лет назад)

Первое условие неправильно тем, что or не исключает условия, берётся совокупность условий. То есть, если ХОТЯ БЫ одно число будет отрицательным, программа пойдёт по первому условию. Мне кажется, эта программа при вводе трёх отрицательных чисел должна писать сначала "одно отрицательное число", а потом "три отрицательных числа". Думаю, вся проблема лежит именно в первом условии.  Потому что программа всегда будет идти по ней (если, конечно, отрицательные числа есть).

+ 0 -

Алишка888

09 мая 2013 г., 13:14:43 (10 лет назад)

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.