Дано целое число N (amp;gt; 0). Отыскать значение выражения1.1 1.2

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

Задать свой вопрос
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.
Эвелина Кежа
спасибо огромное!!!! прям очень признательна)))))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт