{--------------------------------------------------------------------- - Subiect: Intr-o cutie se contin n figuri geometrice de 2 tipuri: cu A laturi si cu B laturi. Numarul total de laturi ale tuturor figurilor din cutie este m. - Cerinta: De determinat numerele Xa si Xb de figuri, de tipurile respective, prezente in cutie. - Intrare: Numerele naturale n, m, A si B se introduc de la tastatura. - Iesire: Numerele naturale Xa si Xb se afiseaza la ecran. - Exemplu: Intrare: m = 1974 A = 3 | Iesire: Xa = 123 n = 444 B = 5 | Xb = 321 - Analiza: Din cerinte avem: Xa + Xb = n | Acesta este un sistem de doua ecuatii si doua A*Xa + B*Xb = m | necunoscute Xa si Xb, care poate fi rezolvat. ---------------------------------------------------------------------} Program Figuri ; uses crt ; var A,B,m,n,Xa,Xb: Word ; begin clrscr ; write('Nr de obiecte? n = ') ; readln(n) ; write('Nr de laturi? m = ') ; readln(m) ; write('Nr de obiecte cu A laturi? a = ') ; readln(A) ; write('Nr de obiecte cu B laturi? b = ') ; readln(B) ; if A = B then begin Writeln('Runtime Error 666: The two types are identical!'#10#13'A must not be equal to B'); Halt(1); end; Xa := (m-n*B)div(A-B) ; Xb := (m-n*A)div(B-A) ; { Xb := n - Xa } writeln('Xa = ', Xa) ; writeln('Xb = ', Xb) ; readkey ; end.