Паисий
6 год назад
Помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.
ОТВЕТЫ
Terpigorev
Jul 25, 2019
Program prodavec;
var a:integer; b:real;z:real;
begin
writeln(Введите цену за одну из 50 первых газет.);
readln(a);
b:=(a*20/100)+a;
z:=(a*50)+(150*b);
writeln(Заработок продавца за продажу 200 газет=,z)
end.
var a:integer; b:real;z:real;
begin
writeln(Введите цену за одну из 50 первых газет.);
readln(a);
b:=(a*20/100)+a;
z:=(a*50)+(150*b);
writeln(Заработок продавца за продажу 200 газет=,z)
end.
Const n=50; m=200;
var a,z:real;
begin
write(a = );
readln(a);
z:=a*n+a*1.2*(m-n);
writeln(Заработок продавца = ,z);
end.
Пример:
a = 2
Заработок продавца = 460
var a,z:real;
begin
write(a = );
readln(a);
z:=a*n+a*1.2*(m-n);
writeln(Заработок продавца = ,z);
end.
Пример:
a = 2
Заработок продавца = 460
252
