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

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

Задать свой вопрос
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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт