Question

Использую подпрограмму вычисления степени (можно оформить её как процедуру или как функцию), напишите на Паскале программу расчёта выражения:
y=x^2+ x^4+… +x^n
Значения x и n вводятся с клавиатуры

Answer 1

Ответ:

#python

x = float(input("x = "))

n = float(input("n = "))

i = 2

y = 0

while i < n:

   if i%2 == 0:

       y += pow(x,i)

   i += 1

print("y =", y)

#pascal

uses Math;

var

   x,y,n: real;

   i :integer;

begin

   i:= 2;

   y:= 0;

   write('x = ');

   readln(x);

   write('n = ');

   readln(n);

   while i < n do begin

       if i mod 2 = 0 then begin

           y:= y + Power(x,i);

       end;

       i:= i+1;

   end;

   write('y = ',y:0:2);

end.