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

Тема в разделе "Информатика", создана пользователем selia84, 10 янв 2010.

  1. selia84

    selia84 New Member

    Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры. Желательно вPascalABC
     
    selia84, 10 янв 2010
    #1
  2. Lavina19

    Lavina19 New Member

    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.
     
    Lavina19, 10 янв 2010
    #2

Поделиться этой страницей

Наша группа