profile
Опубликовано 5 лет назад по предмету Информатика от BRENI

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

 

Желательно в PascalABC

  1. Ответ
    Ответ дан Veksha

    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.

Самые новые вопросы