Advertisement
DaGa286

Untitled

Feb 17th, 2020
176
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var i: integer;
  2. N: array[1..6] of real;
  3. begin
  4. for i:=1 to 6 do
  5. begin
  6.   N[i]:= power(2,6-i+1);
  7.   write(N[i],' ');
  8.   end;
  9.   end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement