Мальчик, продающий на улице газеты, зарабатывает А руб. на продаже каждой из первых 75 газет. На каждой из остальных проданных газет он зарабатывает по Х руб. Напишите программу, которая выведет заработок мальчика, если он продаст B газет.
Answers & Comments
Yegor55
Var A, B, X : Integer; begin Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:'); Readln(A);
Writeln('Введите цену остальных газет:'); Readln(X);
if B <= 75 then // Условие: если газет 75 или меньше, то... Writeln('Мальчик заработает ', B * A, 'рублей.') else // Иначе... Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.'); end.
Answers & Comments
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');
Readln(A);
Writeln('Введите цену остальных газет:');
Readln(X);
if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.