Пользователь водит цену одного килограмма и общий вес имеющихся слив. После чего программа вычисляет общую стоимость продукции.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 |
program line_9;
uses crt; var kg, rub, c: real; begin clrscr; write(‘Цена одного кг слив (руб) > ‘); readln(rub); write(‘Вес слив (кг) > ‘); readln(kg); c:=rub*kg; write(‘Стоимось продукции: ‘, c:4:2, ‘ руб’); readkey; end. |