помогите с информатикой!
Составьте программы на Паскале:
1)Вывести на экран первые десять членов последовательности,заданой формулой х(индекс n)=n^2-10.
например при n=5 должны выйти числа -9,-6,-1,6,15.
2)Вычислить среднее арифметическое целых чисел из диапазона от 6 до 50,кратных 3.
Можно написать как для 8 класса, пожалуйста
Answers & Comments
// 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.