Дано целое число N ( больше 0). Найти значение выражения1.1 – 1.2 + 1.3 – …(N слагаемых, знаки чередуются). Условный оператор не использовать. помогите, пожалуйста, через паскаль
Дано целое число 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.
Не нашли ответ?
Похожие вопросы