Advertisement
Guest User

Untitled

a guest
Mar 20th, 2018
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.17 KB | None | 0 0
  1. program p1;
  2. var sum,i,n:integer;
  3. begin
  4.     write('N = ');readln(n);
  5.     sum:=0;
  6.         for i := 1 to n do
  7.     begin
  8.         sum:=sum*(2*N);
  9.     end;
  10.     write('Produsul este egala cu ',sum);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement