Задание:
Помогите пожалуйста составить программу для этой задачи в паскале… уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. Спродаж каждой из остальных газет он получает на 20% больше. Разработайте программу, которая вычислит заработок продавца, если он продает за день 200 газет.
Решение:
Program gazeta; Uses Crt; var a,zar: real; begin clrscr; write ('Введите прибыль с первых 50 газет: '); readln (a); zar: =a+(150*1,2); writeln; writeln ('Прибыль за день: ',zar) readkey; end.
Знаете другой ответ?