Олимпиадная задача на паскале: помогите решить!

[solvet]

Нужно написать программу, которая считаем y=1+x+x в квадрате + x в кубе + … x в n степени.

надеюсь, что вы поняли, что требует мой учитель по информатике…

 

[ampersand]

Ответ от chatgpt

program PowerSum;

var
  x, n, i: integer;
  y: real;

begin
  writeln('Введите значение x: ');
  readln(x);
  writeln('Введите значение n: ');
  readln(n);
  y := 0;
  for i := 1 to n do
    y := y + power(x, i);
  writeln('y = ', y:0:2);
end.

 

[camillo1990]

Нужно написать программу, которая считаем y=1+x+x в квадрате + x в кубе + … x в n степени.

надеюсь, что вы поняли, что требует мой учитель по информатике…

program SumOfPowers;
uses crt;
var
  x, y, temp: real;
  n, i: integer;
begin
  writeln('Enter the value of x:');
  readln(x);
  writeln('Enter the value of n:');
  readln(n);

  y := 1;
  temp := 1;
  for i := 1 to n do
  begin
    temp := temp * x;
    y := y + temp;
  end;

  writeln('The value of y is: ', y:0:2);
  readln;
end.

 

[Irval]

Ответ от chatgpt

program PowerSum;

var
  x, n, i: integer;
  y: real;

begin
  writeln('Введите значение x: ');
  readln(x);
  writeln('Введите значение n: ');
  readln(n);
  y := 0;
  for i := 1 to n do
    y := y + power(x, i);
  writeln('y = ', y:0:2);
end.

Не советую использовать ChatGPT при каждом удобном случае. Даже в таком простом задании он смог ошибиться. Результат работы данной программы будет всегда на 1 меньше верного.