Написать программу на Pascal

[xsashok]

Разработать программу для расчета суммы и произведения(В одном цикле)

[Stilet]

В чем сложности?
Попытки увидеть можно?

[xsashok]

Перевести программу на Pascal

#include<iostream.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
void main()
{
clrscr()
int n,k;
double S,x,A;
cout<<"x=";
cin>>x;
cout<<"n=";
cin>>n;
for(k=;k<=n;k++)
{S=S+A
A=1/(pow(x,2))
}
cout<<S<<endl;
getch();
}

[Stilet]

Ну а твои попытки выдавить хоть что-то на паскале как выглядят?

[newerow1989]

var k,n,dva:integer;
    p,s,x:real;
begin
   n:=2;
   s:=0;
   p:=1;
   dva:=1;
   x:=5;
   For k:=1 to n do
   begin
      s:=s+1/x/x;
      dva:=dva*2;
      p:=p*(1+1/dva);
   end;
   Writeln(s:5:5);
   Writeln(p:5:5);
   Readln;
end.

Сойдет?