Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок — Pascal(Паскаль)

program konf1;
var sweet_kilo, price_sweet_kilo, Price_one_sweet_kilo: real;
iris_kilo, Price_iris_kilo, Price_one_iris_kilo: real; Ratio: real;
begin
    write('Введите количество килограмм шоколадных конфет: ');
    read(sweet_kilo);
    write('Введите стоимость конфет: ');
    read(Price_sweet_kilo);
    Price_one_sweet_kilo := Price_sweet_kilo / sweet_kilo;
    writeln('Стоимость 1 кг. конфет -- ', Price_one_sweet_kilo:5:1);
    write('Введите количество килограмм ирисок: ');
    read(iris_kilo);
    write('Введите стоимость конфет: ');
    read(Price_iris_kilo);
    Price_one_iris_kilo := Price_iris_kilo / iris_kilo;
    writeln('Стоимость 1 кг. конфет -- ', Price_one_iris_kilo:5:1);
    Ratio := Price_one_sweet_kilo / Price_one_iris_kilo;
    writeln('Один килограмм конфет дороже ирисок в ', Ratio:5:1, ' раз.');
end.

Leave a Comment