Помогите!!! Решить задачу на языке программирования Pascal: Рассчитайте еженедельную выручку зоопарка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 115 руб. - цена детского на 30% дешевле ...
Помогите!!!
Решить задачу на языке программирования Pascal:
Рассчитайте еженедельную выручку зоопарка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 115 руб. - цена детского на 30% дешевле чем взрослого.
Гость
Ответ(ы) на вопрос:
Гостьprogram zoopark;
var biletvs,biletde,vzros,dets,summ: real;
beginwrite('Введите Количество проданных билетов для Взрослых');
readln(biletvs);
write('Введите Количество проданных билетов для Детей');
readln(biletde);
vzros:=115;
dets:=115/100*70;
summ:=((biletvs*vzros)+(biletde*dets))*7;
write('Еженедельная выручка зоопарка =',summ);
end.
Вроде должно быть так
Не нашли ответ?
Похожие вопросы