Составьте программу осуществляющую поиск однофамильцев, обучающихся в одном классе
229
264
Ответы на вопрос:
Uses crt; type uchenik=record fam: string[20]; im: string[20]; kls: string[3]; end; var a: array[1..100] of uchenik; n,i,j,k: byte; begin clrscr; writeln('сколько учеников n='); readln(n); writeln('введите данные о ',n,' учениках: '); for i: =1 to n do begin writeln('ученик ',i); write(' фамилия: '); readln(a[i].fam); write(' имя: '); readln(a[i].im); write(' класс ( год+буква, 11а): '); readln(a[i].kls); end; writeln('однофамильцы в одном классе: '); k: =0; for i: =1 to n-1 do for j: =i+1 to n do if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then begin k: =1; writeln(a[i].kls,' ',a[i].fam,' ',a[i].im,' ',a[j].fam,' ',a[j].im); end; if k=0 then write('однофамильцев в одном классе нет! '); readln end.
жёлтый датчик
зелёный ожидание
голубой ультразвук
оранжевый сравнение
фиолетовый старт белый сигнал
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nikitachymev16.06.2022 19:52
-
Hist1818.10.2021 14:39
-
Kseniyak0422.02.2020 05:59
-
roman28610.08.2020 07:05
-
win6612303.11.2020 00:53
-
Слава20010911.11.2020 19:40
-
mimikatja1208.08.2022 07:44
-
БлэтНэвэльный16.10.2021 18:33
-
Болус12.08.2021 10:54
-
ПолинаЗнаетОтвет12.09.2022 23:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.