Question

Как это написать на паскале программу вычисления суммы чисел (100-1)+(100-5)+(100-9)+...+(100-49)

Answer 1

Ответ:

Например, так:

Объяснение:

program sum100;

var s,a:integer;

begin

s:=0;

a:=1;

repeat

s:=s+100-a;

write(a,' ');

a:=a+4;

until a>49;

writeln('s= ',s);

readln;

end.

Answer 2

Для написания программы на Pascal, которая вычисляет сумму чисел вида (100-1)+(100-5)+(100-9)+...+(100-49), можно использовать следующий код:

pascalCopy code
program SumOfNumbers;

var
  sum: Integer;
  i: Integer;

begin
  sum := 0;

  for i := 1 to 49 do
  begin
    sum := sum + (100 - (i * 4 - 3));
  end;

  writeln('Сумма чисел (100-1)+(100-5)+(100-9)+...+(100-49) равна: ', sum);
end.

В этой программе мы используем переменную sum, чтобы хранить общую сумму чисел. Затем мы используем цикл for, который выполняется от 1 до 49, чтобы итерироваться по каждому члену последовательности. Внутри цикла мы вычисляем каждый член последовательности, используя формулу (100 - (i * 4 - 3)), и добавляем его к общей сумме sum.

После окончания цикла выводим результат с помощью writeln. При выполнении программы она выведет результат вычисления суммы на экран.