Уличный продавец газет получает a рублей с продажи каждой из первых 50 газет



Задание 66. Уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продажи каждой из последующих газет он получает на 20% больше. Вычислите дневной заработок продавца, продающего k газет в день. Зафиксируйте свои действия на каждом из этапов решения задачи.
Первый этап
Исходные данные:
а - сумма, получаемая продавцом с продажи из первых 50-ти газет.
1.2*а - сумма, получаемая продавцом с продажи каждой из последующих газет.
Требуется найти:
S - общую сумму, которую получит продавец с продажи k газет.

Второй этап
Соотношения, связывающие исходные данные и результат:
Для нахождения S можно вычислить значение следующего выражения:
при условии, если k<=50, то S := k*a,
иначе S := 50*a + (k-50)*1.2*a
Здесь a и S - величины вещественного типа, а k - целого

Третий этап
Блок-схема:


Четвертый этап
program z66;
var k: integer; a, S: real;
BEGIN
writeln ('Подсчёт заработка продавца');
write ('Введите сумму, которую получает продавец с продажи каждой из 50-ти газет (a): ');
readln (a);
write ('Введите количество проданных газет (k): ');
readln (k);
if k<=50 then S := k*a
else S := 50*a + (k-50)*1.2*a;
writeln ('Продавец получит ', S , ' рублей');
END.

Пятый этап
Протестируйте программу при следующих исходных данных:


Шестой этап
Выполните расчеты при a=1.2; k=147.
Результат: 199,68