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.
Трудно представить строительство частного элитного дома без правильно выбранного архитектора. Общение с ним может начаться с разных во в числе которых будет и такой: "какой архитектурный стиль вам нравится?".
Если вы слышите его впервые или вообще никогда не интересовались архитектурой, вполне возможно, затруднитесь с ответом. Опытный профи, прежде чем задавать его, предложит посмотреть фотографии, альбомы и каталоги, а вы отбираете среди них то, что произвело на вас впечатление. И лишь затем архитектор сам назовет стиль, который более всего соответствует вашим вкусам.
Это и послужит основой для проектирования вашего будущего дома.
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.
Трудно представить строительство частного элитного дома без правильно выбранного архитектора. Общение с ним может начаться с разных во в числе которых будет и такой: "какой архитектурный стиль вам нравится?".
Если вы слышите его впервые или вообще никогда не интересовались архитектурой, вполне возможно, затруднитесь с ответом. Опытный профи, прежде чем задавать его, предложит посмотреть фотографии, альбомы и каталоги, а вы отбираете среди них то, что произвело на вас впечатление. И лишь затем архитектор сам назовет стиль, который более всего соответствует вашим вкусам.
Это и послужит основой для проектирования вашего будущего дома.
Объяснение: