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.
Program z1; var a,b,c,d:integer; procedure nod(x,y:integer;var nod2:integer); begin while x<>y do begin if x>y then begin x:=x-y end else begin y:=y-x end end; nod2:=xend; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); write('d=');readln(d); nod(a,b,b); nod(b,c,c); nod(c,d,d); writeln('nod=',d); 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.