Question

PROGRAM TURBO PASCAL
Trei prieteni x,y si z au procurat impreuna o minge care costa 250 lei. Sa se scrie un program turbo pascal in care calculeaza suma achitata de fiecare daca Y a achitat 35% iar Z cu 15% mai muld decit y

Answer 1

Program Augustin;
var
x,y,z,s:real;
begin
s:=250;
y:=35;
z:=15;
y:=y*s/100;
z:=z*y/100;
x:=s-z-y;
Writeln('X= ',round(x));
Writeln('Y= ',round(y));
Writeln('Z= ',round(x));
readln;
end.