Question

Много ! не копируйте с других сайтов, там не правильно! и дочитайте текст до конца ! уличный продавец получает 'a' рублей с продажи каждой из первых 50 газет. с продажи каждой из последующих газет он получает на 20% больше. вычислите дневной заработок продавца, 'k' газет в день. нужно составить программу паскаль для вычисления дневного заработка продавца, где 'a' и 'b' нужно вводить самой. если вы не можете составить программу, то хотя бы написать уравнение решения этой , ведь тогда 'a' и 'k' остаются как есть

Answer 1

Var i,k: integer;
    a,an,s: real;
begin  write('стоимость газеты из первых 50:  ');    readln(a);
  write('число проданных газет:  ');
  readln(k);
  writeln; 
  if k<=50 then s:=k*a
  else
  begin 
    s:=50*a;
    an:=a;
    for i:=1 to k-50 do
    begin
      an:=an*1.2;
      s:=s+an;
    end;
  end;
  writeln('продано газет  ',k,'  выручка составила  ',s,' руб.');
  end.