решите, пожалуйста, 12 и 13 задачи, заранее спасибо
Answers & Comments
danil18660p2clb4program zadanie12; var b:integer;a,X: real; Begin write('Вводим сумму,которую получает продавец с продажи каждой из первых 50 газет:'); readln(a); write ('Ввводим кол-во проданных газет:'); readln(b); X:=50*a+(b-50)*1.2*a; writeln('Продавец получит ',X,' рублей '); end.
program zadanie13; var a,b:integer;s,x: real; Begin write('Вводим кол-во непроданных билетов эконом-класса:'); readln(a); write ('Вводим кол-во непроданных билетов бизнес-класса:'); readln(b); write ('Вводим стоимость билетов в бизнес-классе:'); readln(x); s:=(120-a)*x/2+(40-b)*x; writeln('Билето продано на ',s,' рублей '); end.
Answers & Comments
var b:integer;a,X: real;
Begin
write('Вводим сумму,которую получает продавец с продажи каждой из первых 50 газет:');
readln(a);
write ('Ввводим кол-во проданных газет:');
readln(b);
X:=50*a+(b-50)*1.2*a;
writeln('Продавец получит ',X,' рублей ');
end.
program zadanie13;
var a,b:integer;s,x: real;
Begin
write('Вводим кол-во непроданных билетов эконом-класса:');
readln(a);
write ('Вводим кол-во непроданных билетов бизнес-класса:');
readln(b);
write ('Вводим стоимость билетов в бизнес-классе:');
readln(x);
s:=(120-a)*x/2+(40-b)*x;
writeln('Билето продано на ',s,' рублей ');
end.