Составить программу, которая при цене продукта…

Задание:

Составить программу, которая при цене продукта за 1 кг. Распечатывает в строчку стоимость от 0,1 до 0,9 кг.

Решение:

var price: real; i: integer; begin write ('Введите цену за килограмм '); readln (price); for i: =1 to 9 do writeln ('Стоимость за ', i / 10, ' кг составляет ', i / 10*price); end.

Знаете другой ответ?

Отправить свой ответ