Есть ответ 👍

Составьте программу осуществляющую поиск однофамильцев, обучающихся в одном классе

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

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


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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS