Могут возникнуть проблемы с 4-м уровнем. Подсказка: 4-й уровень - это куница, хорь, олень. Т.е. нужно будет вставить эти слова и 4-м уровне уже писать какие есть куницы, хори, олени. Сделать нужно многоуровневый список. ВСЕ названия животных в столбик! И каждый под своим номером. ТЕКСТ НИЖЕ Природа России. Млекопитающие Млекопитающие в природе России представлены отрядами хищных, парнокопытных и непарнокопытных. Отряд хищных представлен следующими семействами: собачьи (волк, шакал, песец, обыкновенная лисица, корсак, красный волк, енотовидная собака), медвежьи (медведь бурый, медведь белый, медведь белогрудый, или гималайский), енотовые (енот-полоскун), куньи (соболь, лесная куница, каменная куница, колонок, лесной | или черный хорь, степной или светлый хорь, европейская норка, ласка, горностай, хорь-перевязка, росомаха, выдра, калан) и кошачьи (лесной кот, степной кот, камышовый кот, или хаус, манул, амурский лесной кот, обыкновенная рысь, снежный барс, или ирбис, барс, или леопард, тигр). Отряд парнокопытных представлен следующими семействами: свиные (кабан, или дикая свинья), оленьи (кабарга, косуля, лось, северный олень, благородный олень, пятнистый олень), полорогие (дзерен, сайга, горал, серна, бородатый козел, сибирский козел, кавказский тур, архар, снежный баран, овцебык, зубр, тур). Отряд непарнокопытных представлен семейством лошадиных (тарпан, кулан).
// PascalABC.NET 3.6
type
TR = record
Имя, Отчество, Фамилия: string;
Возраст, НомерКласса: integer;
БукваКласса: char;
end;
function ПринятьСведения: TR;
begin
Result.Имя := ReadlnString('Имя:');
Result.Отчество := ReadlnString('Отчество:');
Result.Фамилия := ReadlnString('Фамилия:');
Result.Возраст := ReadlnInteger('Возраст:');
Result.НомерКласса := ReadlnInteger('Номер клвсса:');
Result.БукваКласса := ReadlnChar('Буква класса:');
end;
procedure ВывестиСведения(L: List<TR>);
begin
foreach var r in L do
Writeln(r.Имя+' '+r.Отчество+' '+r.Фамилия:40,
r.Возраст:4, r.НомерКласса+r.БукваКласса:4)
end;
begin
var p := new List<TR>;
var n := ReadlnInteger('Сколько учеников добавить?');
loop n do
p.Add(ПринятьСведения);
p := p.OrderByDescending(t -> t.Имя).ToList;
ВывестиСведения(p);
end.
Pascal ABC
Код:
var
a: array [1..3] of string;
i, j, k: integer;
begin
readln(a[1],a[2],a[3]);
for i := 1 to 3 do
for j := 1 to 3 do
for k := 1 to 3 do
if (i <> j) and (i <> k) and (j <> k) then
writeln(a[i], ' ', a[j], ' ', a[k]);
end.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ