program calcul; var x,y,z:integer; begin write('x='); readln(x); write('y='); readln(y); if (x>0) or (y>0) then repeat writeln('Introduceti ambele numere negative'); write('x='); readln(x); write('y='); readln(y); until (x<0) and (y<0); else z:=x div y; writeln('z=',z); end.
Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Dacă aveți întrebări sau nevoie de asistență suplimentară, nu ezitați să ne contactați. Pe curând și nu uitați să ne adăugați la favorite!
