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

program klg;
var X_kilo, Price_x_kilo, Y_kilo, Price_y_kilo, Price_one_kilo: real;
begin
    write('Введите количество килограмм: ');
    read(X_kilo);
    write('Введите стоимость конфет: ');
    read(Price_x_kilo);
    Price_one_kilo := Price_x_kilo / X_kilo;
    writeln('Стоимость 1 кг. конфет -- ', Price_one_kilo:5:1);
    write('Введите количество кг.: ');
    read(Y_kilo);
    Price_y_kilo := Y_kilo * Price_one_kilo;
    writeln('Цена конфет за ', Y_kilo, ' кг. конфет равна -- ', Price_y_kilo:5:1);
end.

Leave a Comment