Помогите решить задачу. Уличный продавец газет получает а рублей с продажи каждо
Помогите решить задачу.
Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из после¬дующих газет он получает на 20% больше. Вычислите дневной заработок продавца, продающего k газет в день. Протестировать программу при следующих исходных данных (указано в приложении). Программа должна работать и соответствовать этой таблице.
Заранее спасибо.
Гость
Ответ(ы) на вопрос:
Гость Program gazeta;
function Main(a, k: integer): real;
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.
---
Работает, протестировал.
Не нашли ответ?
Похожие вопросы