16 Мар 20150 КомментариевPascal Решение задачи Begin33 Условие задачи:Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет. uses PT4; var x, y, a: real; begin Task('Begin33'); read(x, a, y); write(a / x, (a / x) * y); end. Поделиться: