Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //Begin33°. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.
- var
- X, Y ,A,B: real;
- begin
- readln(X,A,Y);
- B:= A/X;
- writeln('цена 1 кг -',B,', цена ',Y,' кг -',B*Y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement