Надотряд |
Описание |
Представители |
Плавающие |
Проводят жизнь на суше и под водой. Отлично плавают, имеют обтекаемую форму тела, ласты, острый клюв. Не умеют летать. На суше неуклюжие, ходят медленно |
Пингвины |
Бескилевые |
Имеют недоразвитые крылья. Летают плохо (невысоко поднимаются в воздух) или не умеют летать. Нижние конечности высокие, сильные, мускулистые. Перья мягкие, киль отсутствует, ключица недоразвитая. Хорошо бегают, обладают острым зрением и слухом |
Киви, нанду, тинаму, казуар |
Новонёбные |
Самый многочисленный надотряд. Хорошо приспособлены к полёту и проживанию в разной среде обитания. Имеют характерные для птиц черты – киль, сросшиеся позвонки, полые кости, крылья и т.д. |
Воробьи, вороны, филины, орлы |
Type results = record
Fam: string[15];
Rus: 2..5;
Alg: 2..5;
Phiz: 2..5
End;
Var list: array[1..30] of results;
i: integer; F1, F2: text;
Begin
Assign(F1, '10_a.txt');
Assign(F2, 'Best.txt');
Reset(F1);
Rewrite(F2);
Readln(F1); Readln(F1);
For i:=1 To 30 Do
Readln(F1,list[i].Fam,list[i].Rus,list[i].Alg,list[i].Phiz);
For i:=1 To 30 Do
If (list[i].rus=5) and (list[i].alg=5) and
(list[i].phiz=5)
Then
Begin
Writeln(list[i].fam);
Writeln(F2, list[i].fam)
End;
Close(F1); Close(F2)
End.