Question

ajutor va rog prin pascal cu while sau repeat variabila i
1) se citesc numere naturale pina la introducerea numărului 0.sa se scrie un program care sa numere cite dintre ele sunt negative.​

Answer 1

var n, p: integer;

   x: real;

begin

 n := 0;

 p := 0;

 writeln('Enter numere naturale pana la numarul 0:');

 repeat

   write('? ');

   readln(x);

   if x < 0

     then inc(n)

     else if x > 0

       then inc(p)

 until x = 0;

 writeln('Numărul de numere pozitive: ', p);

 writeln('Numărul de numere negative: ', n);

 readln

end.