Степан
5 год назад
уличный продавец газет получает x рублей от продажи каждой из первых 60 газет. с пролажи каждой из остальных газет он получает 25 процентов больше написал рограмму а поскале
ОТВЕТЫ
Dinko
Oct 24, 2020
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- это количество газет
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- это количество газет
65
Смежные вопросы:
