Question

Синформатикой! составьте программы на паскале: 1)вывести на экран первые десять членов последовательности,заданой формулой х(индекс n)=n^2-10.например при n=5 должны выйти числа -9,-6,-1,6,15.2)вычислить среднее арифметическое целых чисел из диапазона от 6 до 50,кратных 3.можно написать как для 8 класса, ​

Answer 1

// 1)

begin

 var n := 1;

 var k := 10;

 while n <= k do

 begin

   Print(n * n - 10);

   n += 1

 end;

end.

// 2)

begin

 var n := 0;

 var Sum := 0;

 for var i:= 6 to 50 do

   if i mod 3 = 0 then

   begin

     n += 1;

     Sum += i

   end;

 Print(Sum/n)

end.