👤
DDAANNAAWIX
a fost răspuns

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.​

Răspuns :

GRIGORE2018WIX

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.

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari