Поделитесь своими знаниями, ответьте на вопрос:
Синформатикой! составьте программы на паскале: 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.