Подсчитать количество отрицательных чисел среди трех - вопрос №69493 от 123456789er 27.05.2023 10:44

Question

Информатика: Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры. желательно в pascalabc

123456789er · Answer

var kol,a,b,c:longint; begin   read(a,b,c);   if a 0 then kol:=kol+1;   if b 0 then kol:=kol+1;   if c 0 then kol:=kol+1;   write(kol); end....