Ответ:
AND
Объяснение:
Можно решать с помощью таблицы истинности (см. вложение).
Требуется операция, дающая ноль при комбинациях 00, 01, 10.
Это функция AND. Она дает 1 при комбинации 11, но из таблицы истинности видно, что такой комбинации быть не может.
var d:real;i,k:integer;Begin k:=0; for i:= 1 to 3 do begin writeln("Введит число"); read(d); if (d<0) then k:=k+1; end; writeln(k);End.