Question

1)Найти произведение двухзначных чисел, кратных 12.
2)Даны натуральные числа от 2222 до 4444. Найти среднее арифметическое чисел, в которых вторая цифра равна первой.
PASCAL напишите программу

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var (i, p) := (12, int64(1));

 while i < 100 do

 begin

   p *= i;

   i += 12

 end;

 Println('П =', p);

 // 2

 var (k, s) := (0, 0);

 for var j := 2222 to 4444 do

   if (j div 1000) = (j mod 10) then

   begin

     s += j;

     k += 1

   end;

 Println('Среднее =', s / k)  

end.