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

jojolili jojolili    2   03.03.2019 03:40    2

Ответы
polinas6661 polinas6661  23.05.2020 23:06

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика