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

Сегодня примерно в 15:58 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

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

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

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.