Begin34. Известно, что $$X$$ кг шоколадных конфет стоит $$A$$ рублей, а $$Y$$ кг ирисок стоит $$B$$ рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program Begin34; var X,A,Y,B,KosztChocolate,KosztToffee,Ratio: Real; begin Write('Введите кол-во шоколадных конфет в кг: '); Readln(X); Write('Введите стоимость этого кол-ва шоколадных конфет в руб. : '); Readln(A); Write('Введите кол-во ирисок в кг: '); Readln(Y); Write('Введите стоимость этого кол-ва ирисок в руб. : '); Readln(B); KosztChocolate:=A/X; Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztChocolate,' руб.'); KosztToffee:=B/Y; Writeln('Цена шоколадных конфет за 1 кг равна: ',KosztToffee,' руб.'); Ratio:=KosztChocolate/KosztToffee; Writeln('Шоколадные конфеты дороже ирисок в : ',Ratio,' раз.'); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Ошибка в задаче где второе костоф=y/b наоборот b/y!!!))
Спасибо, поправил:
Было:
Стало: