Регистрация
Natalia1097
27.01.2022 04:49
Информатика
Есть ответ 👍

Паскаль определить наибольшую выручку от продажи трех видов товаров, если известны: цена товара; количество проданных товаров каждого вида. составить код программы

192
206
Посмотреть ответы 2

Ответы на вопрос:

123123ilya
123123ilya
4,4(89 оценок)
Program suma; var c1, c2, c3, t1, t2, t3, sum: integer; begin   readln(c1, c2, c3, t1, t2, t3);   sum: = c1 * t1 + c2 * t2 + c3 * t3;   write(sum); end.
Полинка490
Полинка490
4,8(79 оценок)

var

       x, f: Real;

       

begin

       Read (x);

       

       if x > 2 then

               f := 2 * x

       else

               f := -3 * x;

       

       Write (f)

end.        

Популярно: Информатика