iti dau programul in pascal daca te ajuta: program nou; var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); if (a=b+1) or (b=a+1) then write('sunt consecutive') else write('nu sunt consecutive'); readln; end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
