👤

PASCAL!!!
Am nevoie de ceva ajutor in scrierea unui program PASCAL in cel mai simplu mod...

Conditia problemei este:

Un pasager s-a deplasat din orasul A in orasul B cu ajutorul a doua vehicule, achitind pentru fiecare km parcurs cate s1 si respectiv s2 lei. In total pentru drum rl a cheltuit suma s lei. Distanta dintre orase este d. Determinati distantele parcurse de fiecare din mijloacele de transport.


Răspuns :

Program Pasager;
   var d, d1, d2, s, s1, s2: real;

 begin
    write ('s1='); readln (s1);
    write ('s2='); readln (s2);
    write ('s='); readln (s);
    write ('d='); readln (d);

  d1:=(s2*d-s)/(s2-s1);
  d2:=d-d1;

   writeln ('Pasagerul s/a deplasat ', d1, ' km cu primul vehicul si ', d2, ' km cu al doilea vehicul.');
  readln;
end.