помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.
Ответы
Ответ дал:
0
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.
Ответ дал:
0
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.
Ответ дал:
0
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
Похожие вопросы
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад