Matematyka.pl

Kod: Zaznacz cały

Napisz program, który wczytuje liczby dopóki nie wczyta wartości zero a następnie wyświetla, ile było wśród wczytanych liczb (poza zerem, które funkcjonuje jako znacznik końca wczytywania danych):
 a)    liczb dodatnich,
 b)    liczb ujemnych,
 c)    liczb trzycyfrowych,
 d)    liczb parzystych.

Kod: Zaznacz cały

a := 0;
b := 0;
c := 0;
d := 0;
Wczytaj(x);
dopóki x różne od 0 rób
   begin
   jesli warunek (a) to a := a + 1
   jesli warunek (b) to b := b + 1
    ....
    ....
   wczytaj(x);
   end;