Помогите!!! Решить задачу ** языке программирования Pascal: Рассчитайте еженедельную...

Question

Помогите!!!
Решить задачу на языке программирования Pascal:
Рассчитайте еженедельную выручку зоопарка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 115 руб. - цена детского на 30% дешевле чем взрослого.

Answer 1

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.

Вроде должно быть так

Comments

спасибо огромное:))) очень помог!