Помогите решить задачу. Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из после¬
Помогите решить задачу. Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из после¬дующих газет он получает на 20% больше. Вычислите дневной заработок продавца, продающего k газет в день. Протестировать программу при следующих исходных данных (указано в приложении). Программа должна работать и соответствовать этой таблице. Заранее спасибо.
var i: integer; zar: real; begin zar := 0; for i := 1 to k do if i <= 50 then zar := zar + a else zar := zar + 1.2 * a; Main := zar; end;
begin if Main(1, 49) = 49.0 then writeln('Тест 1 пройден'); if Main(1, 51) = 51.2 then writeln('Тест 2 пройден'); if Main(2, 100) = 220.0 then writeln('Тест 3 пройден'); end.