Var

X, A, Y, B: real;

begin

writeln('Сколько у вас шоколадных конфет(в килограммах)?');

readln(X); {5}

writeln('Какая стоимость этих конфет?');

readln(A); {600}

writeln('Сколько килограмм ирисок вы имеете?');

readln(Y); {2}

writeln('Какая стоимость ирисок?');

readln(B); {200}

writeln;

A := A / X; {120}

writeln('Цена(в рублях) 1 кг шоколадных конфет: ', A:0:2);

B := B / Y; {100}

writeln('Цена(в рублях) 1 кг ирисок: ', B:0:2);

A := A / B; {6}

writeln('Шоколадные конфеты дороже ирисок в ', A, ' раз');

readln

end.

нужно переделать программу на питон

deadpool2478    3   26.04.2020 19:36    2