Question

Ajutațimi vă rogsa rezolv problema în limbajul Pascal: trei vînzători x,y,z au vindut portocale, x a vîndut 170 kg la prețul de 8,5 lei kg, y a vîndut 350 kg la prețul de 8,8 lei kg, z a vîndut 150 kg la prețul de 9 lei kg. Să se scrie un program care calculează prețul mediu de comercializare , cine dintre vînzători a obținut cea mai mare sumă de la comercializarea portocalelor?

Answer 1

var x,y,z:integer;    med,x1,y1,z1:real;beginx:=170;y:=350;z:=150;x1:=x*8.5;y1:=y*8.8;z1:=Z*9;med:=(8.5+8.8+9)/3;writeln('Pretul mediu: ', med:2:2);if (x1>y1) and (x1>z1) then write('A obtinut mai mult venit vinzatorul X') elseif (y1>x1) and (y1>z1) then write('A obtinut mai mult venit vinzatorul Y')else write('A obtinut mai mult venit vinzatorul Z');end.