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

Информатика

Ответить

Ответы

ars-trushakova

17.05.2021

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.

kbndbyb6

17.05.2021

Статья 1259. Объекты авторских прав

«1. Объектами авторских прав являются произведения науки, литературы и искусства независимо от достоинств и назначения произведения, а также от его выражения:

литературные произведения;

драматические и музыкально-драматические произведения, сценарные произведения;

хореографические произведения и пантомимы;

музыкальные произведения с текстом или без текста;

аудиовизуальные произведения;

произведения живописи, скульптуры, графики, дизайна, графические рассказы, комиксы и другие произведения изобразительного искусства;

произведения декоративно-прикладного и сценографического искусства;

произведения архитектуры, градостроительства и садово-паркового искусства, в том числе в виде проектов, чертежей, изображений и макетов;

фотографические произведения и произведения, полученные аналогичными фотографии;

географические и другие карты, планы, эскизы и пластические произведения, относящиеся к географии и к другим наукам;

другие произведения.

К объектам авторских прав также относятся программы для ЭВМ, которые охраняются как литературные произведения».

Лилин1079

17.05.2021

1) var a : byte; begin writeln('сколько вам лет? '); readln(a); if a > 17 writeln('вы совершеннолетний'); end. 2) var a : integer; begin readln(a); if a mod 2 = 0 then writeln(число четное) else writeln(число нечетное); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Расшифруйте сообщение если оно зашифровано номер каждой буквы (по алфавиту) вычесть 4 и букву под этим номером(по алфавиту) утрщпр удбикфжую у аипэо шжпфтро

Составить кроссворд чтобы главное слово было квартет

Які дії не рекомендується здійснювати при увімкненому комп'ютері?

Информатика. Написать программу на Python.

С#, дано масив чисел. знайти, скільки в ньому пар однакових сусідніх елементів

Https://apply.workable.com/tubi/j/894EA15758/ https://apply.workable.com/hulu/j/8D45008ED6/ https://apply.workable.com/vudu/j/6E055DAF7F/ https://apply.workable.com/popcornflix/j/B612C6A0B7/ https://a...

Расписать целое восьмеричное число 4153 в развёрнутой форме.

Перепишите программу на языке паскаль, исправив ошибки: program primer var a, b: integer; begin ; readln( a, b); s=a+b; m: =a*b; d: =a: b; writeln(s); writeln(m); writeln(d) end