Написать программу для вычисления значений выражения...

@kukuept · Регистрация: 04.09.2018

Здравствуйте. Решаю задания и хотел бы спросить правильно ли я понял условия задачи, потому что я что-то не уверен (в частности на счет Δx, интервал.

Задание звучит так:
Написать программу для вычисления значений выражения...где n - четные числа, на интервале (0;20) с шагом Δx = 5.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?A = \sum_{0}^{m} 4n+2$

Pascal

program i1_9;
var sum, i, m : integer;
 
begin
      m := 20;
      sum := 0;
      
       for i := 0 to m do
           begin
 
                if (i mod 2 = 0) and (i mod 5 = 0) then
                begin
                    write ('sum = 4*', i, '+2 = ');
                    sum := (4 * i + 2);
                    writeln (sum);
 
                end;
 
           end;
       writeln;
end.

Добавлено через 12 минут
С ответом вроде так должно быть:

Pascal

program i1_9;
var sum, sum1, i, m : integer;
 
begin
      m := 20;
      sum := 0;
      sum1 := 0;
       for i := 0 to m do
           begin
 
                if (i mod 2 = 0) and (i mod 5 = 0) then
                begin
                    write ('sum = 4*', i, '+2 = ');
                    sum := (4 * i + 2);
                    sum1 := sum + sum1;
                    writeln (sum);
 
                end;
 
           end;
       writeln ('Ответ: ', sum1);
end.

@bormant · 05.09.2018, 07:55

Ну и ззачем перебирать с шагом 1, когда нужно 5?

Pascal

  n:=0;
  while n<=m do begin
    if not Odd(n) then sum:=sum+4*n+2;
    Inc(n,5);
  end;

А если вспомнить про делимость на 2 и 5, то

Pascal

  n:=0;
  while n<=m do begin
    sum:=sum+4*n+2;
    Inc(n,10);
  end;

Добавлено через 2 минуты
Или

Pascal

1	for n:=0 to m div 10 do Inc(sum,410n+2);

В сухом остатке

Pascal

const m=20;
var s, n: Integer;
begin
  {s:=0;} for n:=0 to m div 10 do Inc(s,4*10*n+2);
  WriteLn(s);
end.

Опции темы