Advertisement
Guest User

Untitled

a guest
Dec 8th, 2016
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. //Begin33°. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.
  2.  
  3. var
  4.   X, Y ,A,B: real;
  5.  
  6. begin
  7.   readln(X,A,Y);
  8.   B:= A/X;
  9.   writeln('цена 1 кг -',B,', цена ',Y,' кг -',B*Y);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement