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