Решаем задачи Абрамян на Паскале. For18

For18. Дано вещественное число $$A$$ и целое число $$N$$ ($$> 0$$). Используя один цикл, найти значение выражения $$1 — A + A^2 — A^3 + … + (-1)^N*A^N$$. Условный оператор не использовать.

Решение:

program For18;
var
  A,Temp,Rez:Real;
  N, i :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  Temp:=1;
  For i:=1  to N do
   begin
    Temp:=Temp*A*(-1);
    Rez:=Rez+Temp;
   end;
  Writeln(Rez);
end.

program For18;

var

A,Temp,Rez:Real;

N, i :Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите N: ');

Readln(N);

Rez:=1;

Temp:=1;

For i:=1 to N do

begin

Temp:=Temp*A*(-1);

Rez:=Rez+Temp;

end;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For18

Комментарии:

Добавить комментарий Отменить ответ