Посчитайте количество и сумму чисел, находящихся в промежутке [2595, 8401], которые делятся на 2 и не делятся на 13. Запишите в ответе сначала количество, затем сумму.

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

Объяснение:

Первый :

Воспользовавшись возможностями 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.

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