Дано целое число N (> 0). Найти значение выражения1.1 – 1.2 + 1.3 – …(N слагаемых, знаки...

Question

Дано целое число N (> 0). Найти значение выражения
1.1 – 1.2 + 1.3 – …
(N слагаемых, знаки чередуются). Условный оператор не использовать. помогите, пожалуйста, через паскаль

Answer 1

var
  i, n: integer;
  sign, val, sum: real;
begin
  sign := 1;
  val := 1.1;
  writeln('Введите "n": ');
  readln(n);
  for i := 1 to n do
  begin
    sum := sum + sign * val;
    sign := sign * -1;
    val := val + 0.1;
  end;
  writeln('Результат: ',sum);
end.

Comments

спасибо большое!!!! прям очень благодарна)))))