Решить на языке программирования 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.
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.
Вроде должно быть так