Задание:
Составьте программу стоимости покраски пола в комнате: Вводимые данные: Стоимость 1 кг краски- Длина комнаты-Ширина комнаты-
Решение:
var price, a, b: real; begin write ('Введите стоимасть 1 кг краски '); readln (price); write ('Введите длину комнаты '); readln (a); write ('Введите ширину комнаты '); readln (b); writeln ('Стоимость покараски пола комнаты составляет ', price*0,15*a*b); end.
Знаете другой ответ?