Задачи по информатике 1) Трое играли в шашки. Каждый с каждым. Сколько сыграно партий? Сколько партий сыграл каждый? 2) Несколько друзей встретились в парке. Каждый с каждым поздоровался за руку. Сколько было друзей, если рукопожатий было 10? (Для ответа нужно нарисовать граф и пояснить)

(см. объяснение)

Объяснение:

Первый :

Воспользовавшись возможностями PascalABC.NET, напишем программу:

begin

 var a: array of integer := seqGen(5807,x->x+2595).Where(x->(x mod 2 = 0) and (x mod 13 <> 0)).ToArray();

 a.Count.Println; a.Sum.Println;

end.

Второй :

Чистый Pascal тоже позволяет решить эту задачу, только вот код сильно длиннее:

var i,k,sum: integer;

begin

 k:= 0;

 sum:= 0;

 for i:= 2595 to 8401 do

   if((i mod 2 = 0) and (i mod 13 <> 0)) then

   begin

     k:= k+1;

     sum:= sum+i;

   end;

 writeln(k);

 writeln(sum);

end.

В обоих случаях получаем два числа: 2679 и 14728918.

Задание выполнено!