Пользователь водит цену одного килограмма и общий вес имеющихся слив. После чего программа вычисляет общую стоимость продукции.
Решение:
| 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. |