Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет.С продажи каждой из последующих газет он получает на 20% больше.
Разработайте программу,которая вычислит заработок продавца за день 200 газет.Зафиксируйте свои действия на каждом из этапов решения этой задачи.
Разработайте программу,которая вычислит заработок продавца за день 200 газет.Зафиксируйте свои действия на каждом из этапов решения этой задачи.
More Questions From This User See All
Answers & Comments
Verified answer
Vark: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
{write('Число проданных газет: ');
readln(k);}
k := 200;
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.