В соревновании участвовало 4 команды. Каждая команда играла со всеми другими командами. Сколько всего игр было сыграно?

Пронумеруем команды: 1, 2, 3, 4.
Команда 1 играла с тремя другими командами 2, 3, 4. Команда 2 играла с командой 1 (этот матч мы учли) и двумя другими командами С 4. Команда 3 играла с командами 1 2 (эти матчи мы учли) и с командой 4. А команда 4 сыграла 3 матча, но мы эти матчи уже учли. Поэтому всего было сыграло
3 + 2 + 1 = 6 матчей.
Ответ. Было сыграно 6 матчей.

Қыс - жануарлар үшін ең ауыр жыл мезгілі. Олар тоңып, өздеріне қар астынан қорек таба алмайды. Жануарлар қысқа қалай дайындалады? Олардың кейбірінің жүндері қалыңдап, кейбірі қысқы ұйқыға кетеді.

Қыста қорек мөлшері айтарлықтай азаяды, сондықтан көптеген жануар күзден бастап қысқа дайындалады. Тіпті, кей жануарлар қыс қамына жаздан кіріседі. Қыстық қорды бірінші болып жинай бастайтындары - тышқандар, ала тышқандар. Олар жазда орманнан дән, жаңғақтар жинап, індеріне тасиды. Ініне қорек қорын жинаған олар қыс бойы інінде тығылып, сыртқа шықпайды. Суық кездерде кеміргіштер үнемі ұйқыда болады. Тек ара-тұра қоректеніп алу үшін ұйқысынан оянады.

Түлкі, қоян, қасқырлар қысқы суыққа мұншалық дайындалмайды. Себебі олар қысты қорек іздеумен өткізеді. Қояндар жыртықштардан қорғану үшін, сұр тонын ақ түсті тонға ауыстырады. Ал түлкілер мен қасқырлар тондарының түсін өзгертпейді. Бірақ қақаған аязға төтеп беру үшін жүндері қалыңдайды.

var
а : integer; { число, введенное с клавиатуры }
n : integer; { количество чисел }
s : integer; { сумма чисел }
m : real;    { среднее арифметическое }
begin
     s:=0;
      n:=0;
    writeln('Вычисление среднего арифметического
последовательности положительных чисел.');
        writeln('Вводите после стрелки числа. ',
'Для завершения ввода введите ноль.');
         repeat
write(‘> ');
readln(a) ;
s:=s+a;
n:=n+l;
until a <= 0;
n:=n -l;
writeln('Введено чисел: ', n) ;
writeln('Сумма чисел: ',s);
m := s/n;
writeln('Среднее арифметическое: ',m:6:2);
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.