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.

Answer 2

Для решения этих задач на Паскале, вам понадобится среда разработки, которая поддерживает этот язык программирования. Ниже приведены программы для каждой из задач:

1. Вывести на экран первые десять членов последовательности, заданой формулой х(индекс n) = n^2 - 10:

pascalCopy code
program FirstTenSequenceMembers;

var
  n, x: integer;

begin
  for n := 1 to 10 do
  begin
    x := n * n - 10;
    writeln('x(', n, ') = ', x);
  end;
end.

2. Вычислить среднее арифметическое целых чисел из диапазона от 6 до 50, кратных 3:

pascalCopy code
program AverageOfMultiplesOfThree;

var
  sum, count, num: integer;
  average: real;

begin
  sum := 0;
  count := 0;

  for num := 6 to 50 do
  begin
    if num mod 3 = 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;

  if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое: ', average:0:2);
  end
  else
    writeln('В указанном диапазоне нет чисел, кратных 3.');
end.

Эти программы можно скопировать в среду разработки Pascal, такую как Free Pascal или Turbo Pascal, и выполнить для получения результатов. Обратите внимание, что программы работают с целочисленными значениями и не предусматривают обработку ошибок (например, в случае деления на ноль).