Написать программу: ** концерте было K зрителя. Из них K1 человек купили билеты по c1...

Question

Написать программу: На концерте было K зрителя. Из них K1 человек купили билеты по c1 рублей, а остальные-по с2 рублей. Сколько денег (SUM) было выручено от продажи билетов? (К=894 чел., К1=396 чел., с1=150 рублей, с2=200 рублей) _____________________________________________ объясните принцип действия оператора sum, не был на уроке, а ничего дельного не нашел

Answer 1

Тут и обяснять особо нечего. Сначала вычесляем сколько было "остальных" зрителей, потом общую сумму от продажи k1 человекам, потом общую сумму от продажи k2(остальным) человекам, то и то складываем и присваиваем переменной sum.

program test;
var k, k1, k2, c1, c2, sum: integer;
begin
   k:=894;
   k1:=396;
   c1:=150;
   c2:=200;
   k2:=k-k1;
   sum:=k1*c1 + k2*c2;
   writeln('Sum = ', sum, ' rub');
end.