Tegra
5 год назад
ПаскальОпределить наибольшую выручку от продажи трех видов товаров, если известны: цена товара; количество проданных товаров каждого вида.Составить код программы
ОТВЕТЫ
Аркадий
Oct 24, 2020
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.
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.
848
Смежные вопросы:
