Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продаст за день 200 газет.
Var A:real; k:integer; Begin Write(Стоимость одной газеты: );ReadLn(A); Write(Количество газет: );ReadLn(k); if k <= 50 then WriteLn(Заработок продавца: ,k*A, руб.) else WriteLn(Заработок продавца: ,(A*((k-50)*1.2+50)):0:2, руб.) End.
Var k:integer; S,A:real; Begin Write(Стоимость одной газеты: );ReadLn(A); Write(Количество газет: );ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn(Заработок продавца: ,S:0:2, руб.); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
