Question

даны 4 целых числа. составить алгоритм, который подсчитывает, сколько среди них меньших нуля

Answer 1

Ответ:

var

a,b:integer;

k:byte;  

begin

write ('A = ');readln(a);

if (a<0) then k:=2 else

if ((a<0) and or ((a>0) hen k:=1 else k:=0;

writeln (k);

readln;

end.

Объяснение: