Question

Помогите пожалуйста составить программу для этой задачи в паскале по этапам ... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.

Answer 1

Program prim1;
Var a,b,c: integer;
Begin
a:=5;
b:=20%;
c:=200;
writeln('(aруб.*c)+b%')
end.

Answer 2

Программа на языке Pascal для решения данной задачи может выглядеть следующим образом:

program newspaperSeller;

var
  a, totalEarnings: integer;
  i: integer;

begin
  a := 1; // начальная цена за первую газету
  totalEarnings := 0; // общий заработок продавца

for i := 1 to 200 do
  begin
    if i <= 50 then
      totalEarnings := totalEarnings + a // продажа первых 50 газет по цене a
    else
    begin
      totalEarnings := totalEarnings + a + (a * 20) div 100; // продажа остальных газет с увеличением цены на 20%
    end;
  end;

writeln('Заработок продавца за день: ', totalEarnings, ' рублей');
end.

В данной программе используется переменная `a`, которая хранит начальную цену за первую газету. Затем, с помощью цикла `for`, происходит перебор всех 200 газет. Если номер газеты меньше или равен 50, то к общему заработку прибавляется цена `a`. В противном случае, к общему заработку прибавляется цена `a`, увеличенная на 20% (через операцию деления с округлением вниз с помощью `div`).

В конце программы выводится общий заработок продавца за день.