Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
    k: integer;
    a, s: real;

begin
    write(Начальная стоимость: );
    readln(a);
    write(Число проданных газет:  );
    readln(k);
    
    if k <= 50 then s := k * a
    else
    begin
        s := 50 * a;
        s := s + (k - 50) * a * 1.2;
    end;
    writeln(Выручка составила  , s, руб.);
end.