Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ADRIJAN JPG
Language: PASCAL
Code:
Program Zbir Reciprocni Na Kvadrat;
VAR N,k;integer;
BEGIN
Write ('Vnesi do koj broj N=');
Readln(N);
K:=1;
REAPEAT
Zbir:=Zbir=1/(K*K);
K:=K=1;
UNTIL K>N;
Writeln('Zbirot na kvadratite na recipicnite vrednostido;
N'e zbir);
END.

Comments: