Товарищи, нужна а) В ожесточенном бою 70 из 100 пиратов потеряли глаз, 80 – руку, 85 –
ногу, 40 – глаз и руку, 50 – глаз и ногу, 55 – руку и ногу. Сколько пиратов
потеряли глаз, руку и ногу?
б) Исследователь рынка сообщает следующие данные. Из 1000
о нравится шоколад, 752 – мармелад, 418 – зефир, 570 –
шоколад и мармелад, 356 – шоколад и зефир, 348 – мармелад и зефир, а 297 –
все три вида сладостей. Показать, что в этой информации есть ошибки.
в) На загородную прогулку поехали 92 человека. Бутерброды с колбасой
взяли 48 человек, с сыром – 38 человек, с ветчиной – 42 человека, с сыром и
колбасой – 28 человек, с колбасой и ветчиной – 31 человек, с сыром и ветчиной
– 26 человек. 25 человек взяли с собой все три вида бутербродов, а несколько
человек вместо бутербродов взяли пирожки. Сколько человек взяли с собой
пирожки?
г) На вступительном экзамене по математике были предложены три
задачи: по алгебре, планиметрии и стереометрии. Из 1000 абитуриентов задачу
по алгебре решили 800, по планиметрии – 700, а по стереометрии – 600
абитуриентов. При этом задачи по алгебре и планиметрии решили 600
абитуриентов, по алгебре и стереометрии – 500, по планиметрии и
стереометрии – 400. Все три задачи решили 300 абитуриентов. Существуют ли
абитуриенты, не решившие ни одной задачи, и если да, то сколько их?
189
302
Ответы на вопрос:
Program bally; var a: array[1..250] of string; n,l,max,x,i,b,p: integer; z,k: string; begin max: =0; readln(n); for i: =1 to n do readln(a[i]); z: =a[1]; l: =pos(' ',z); delete(z,1,l); l: =pos(' ',z); delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); max: =max+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); max: =max+x; delete(z,1,pos(' ',z)); val(z,x,l); max: =max+x; for i: =2 to n do begin z: =a[i]; b: =0; l: =pos(' ',z); delete(z,1,l); l: =pos(' ',z); delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(z,x,l); b: =b+x; if b> max then max: =b; end; for i: =1 to n do begin z: =a[i]; b: =0; l: =pos(' ',z); p: =l; delete(z,1,l); l: =pos(' ',z); p: =p+l; delete(z,1,l); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(copy(z,1,pos(' ',z)-1),x,l); b: =b+x; delete(z,1,pos(' ',z)); val(z,x,l); b: =b+x; if b=max then begin z: =a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. наверное
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Job12116.01.2022 19:56
-
KateNio16.05.2021 16:01
-
kooklool22.03.2022 02:06
-
gaibog19.12.2022 11:13
-
neket67888504.10.2021 14:28
-
БелинскихАнастасия1120.04.2021 18:37
-
budarnyypetr26.08.2021 16:05
-
Ульяна273203.10.2020 19:43
-
LoVeR78906.08.2020 18:36
-
SA67WQTBLOCK17.05.2022 05:37
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.