Регистрация
fvrvdv
08.09.2021 05:33
Информатика
Есть ответ 👍

,очень . Нужно написать <HTML> код
про фильм "любой".
заранее .
​

217
445
Посмотреть ответы 1

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

Flora999
Flora999
4,8(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.

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