Question

СОСТАВИТЬ ПРОГРАММУ PASCAL 25 БАЛЛОВ!
С ОБЪЯСНЕНИЯМИ ОТКУДА ВЗЯЛИСЬ ТАКИЕ-ТО ЧИСЛА, И ПОЧЕМУ ТАК РЕШАЕТСЯ! ПОЖАЛУЙСТА!
Уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продаст за день 200 газет.

Answer 1

Ответ:

var i,n,k,a:integer;

begin

write('Введите количество проданных газет ');

readln (k);

write('Введите сколько получает продавец с продажи каждой из первых 50 газет ');

readln (a);

if k<=50 then writeln ('заработок продавца ',k*a)//если продано ровно 50 газет или меньше

else writeln ('Заработок продавца ',50*a+((k-50)*a*1.2))//если продано больше 50 газет

end.

Объяснение:

Если продано ровно 50 газет или меньше , то заработок рассчитывается просто умножением количества газет (k) на стоимость продажи каждой из первых 50 газет (a).

Если продано больше 50 газет, то вычисляем сколько продавец получит за первые 50 газет (50*a - умножаем 50 газет на стоимость продажи каждой из первых 50 газет (a)) и к этому числу прибавляем деньги полученные за продажу остальных газет ((k-50)*a*1.2) - умножаем количество газет проданных после первых 50 (k-50) на стоимость газет с учётом процентов a*1,2)