Написать программу для вычисления прибыли по формуле P=S1-S1, где S1-сумма,…

Question

82

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

erevos · Accepted Answer

74

erevos

26 января 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: