Question

решите, пожалуйста, 12 и 13 задачи, заранее спасибо

Answer 1

program 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.