Помогите с информатикой!Составьте программы ** Паскале:1)Вывести ** экран первые десять...

Question

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

Comments

begin Range(1, 10).Select(x -> x * x - 10).Println;end.

---

begin Range(6, 50).Where(x -> x mod 3 = 0).Average.Println;end.

Answer 1

// 1)

begin

 var n := 1;

 var k := 10;

 while n

 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.

Comments

огромное спасибо ♥️♥️♥️