Внекотором вузе абитуриенты проходили предварительное тестирование, по результатам которого они могут быть допущены к сдаче вступительных экзаменов в первом потоке. тестирование проводится по трём предметам, по каждому предмету абитуриент может набрать от 0 100 . при этом к сдаче экзаменов в первом потоке допускаются абитуриенты, набравшие по результатам тестирования не менее 30 по каждому из трёх предметов, причём сумма должна быть не менее 140. на вход программы сведения о результатах предварительного тестирования. известно, что общее количество участников тестирования не превосходит 500. в первой строке вводится количество абитуриентов, принимавших участие в тестировании, n. далее следуют n строк, имеющих следующий формат: здесь – строка, состоящая не более чем из 20 символов; – строка, состоящая не более чем из 15 символов, – строка, содержащая два целых числа, разделенных пробелом – , полученные на тестировании по каждому из трёх предметов. при этом и , и разделены одним пробелом. пример входной строки: романов вельямин 48 39 55 напишите программу, которая будет выводить на экран фамилии и имена абитуриентов, допущенных к сдаче экзаменов в первом потоке. при этом фамилии должны выводиться в алфавитном порядке.

217

490

Посмотреть ответы 2

Ответы на вопрос:

radmirhik2706

Информатика

4,4(20 оценок)

Uses crt; type oc=record per,bt,tr: integer; end; ab=record fam,im: string; ocen: oc; end; var b: array [1..50] of ab; l: ab; i,n,g,k,h: integer; begin clrscr; writeln ('введи количество абитуриентов'); readln (n); writeln ('вводи фамилии, имена и 3 оценки'); for i: =1 to n do with b[i] do begin readln (fam); readln (im); readln (ocen.per,ocen.bt,ocen.tr); end; clrscr; for j: =1 to n do for i: =1 to n-1 do if b[i].fam> b[i+1].fam then begin l: =b[i]; b[i]: =b[i+1]; b[i+1]: =l; end; writeln ('список всех аббитуриентов: '); for i: =1 to n do writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr); writeln ('список допущенных аббитуриентов'); for i: =1 to n do with b[i] do begin with ocen do if (per> 30) and (bt> 30) and (tr> 30) and (per+bt+tr> 140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr); end; readln; end.

logan9

Информатика

4,8(20 оценок)

1467,71руб потратила в магазине Алина.

Объяснение:

39+2*139,78+3*59,1+5*194,37=39+279,56+177,3+971,85=1467,71руб

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.