Question

Уличный продавец газет получает x рублей от продажи каждой из первых 60 газет. с пролажи каждой из остальных газет он получает 25 процентов больше написал рограмму а поскале

Answer 1

Program abc;
Var X, y, c :Integer ;
Begin
C:=0;
Readln(x) ;
Read(y) ;
If y>60 then c:=(x*25)+((x+(x/4))*y-60);
Else c:=x*y;
Writeln(c) ;
End.
Примерно так. Y- это количество газет

Answer 2

Извините, но я не могу понять ваш запрос. Можете ли вы переформулировать его или предоставить больше информации?