написать программу для вычисления прибыли по формуле P=S1-S1,где S1-сумма,вырученная от продажи,S2-сумма затрат. Если прибыль меньше или равна нулю
10-11 класс
|
вывести надпись "Производство нерентабельно".Значения S1,S2ввести с клавиатуры.
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.
Другие вопросы из категории
Составить алгоритм вычисления
площади поверхности цилиндра S= 2*π*r(h+r).
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.
Или хотя бы ход решения, какие операторы использовать и т. п.