Написать программу для вычисления прибыли по формуле P=S1-S1, где S1-сумма, вырученная от продажи, S2-сумма затрат. Если прибыль меньше или равна нулю вывести надпись "Производство нерентабельно". Значения S1, S2 ввести с клавиатуры.

Question

Информатика

Витя

14 октября, 07:12

Написать программу для вычисления прибыли по формуле P=S1-S1, где S1-сумма, вырученная от продажи, S2-сумма затрат. Если прибыль меньше или равна нулю вывести надпись "Производство нерентабельно". Значения S1, S2 ввести с клавиатуры.

+4

Ответы (1)

Знаете ответ на вопрос?

Сонюша · Answer 1

Uses crt;

var p, s1, s2:real;

begin

write ('Сумма, вырученная от продажи: ') ;

readln (s1) ;

write ('Сумма затрат: ') ;

readln (s2) ;

p:=s1-s2;

if p>0 then writeln ('Прибыль: ', p)

else writeln ('Производство нерентабельно.') ;

end.