Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p1;
- var sum,i,n:integer;
- begin
- write('N = ');readln(n);
- sum:=0;
- for i := 1 to n do
- begin
- sum:=sum+(2*i-1);
- end;
- write('Suma este egala cu ',sum);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement