fork download
copy 
  1. program SerieBasica;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var
  9.   n, i, num: Integer;
  10.  
  11. begin
  12.   Write('Ingrese el valor de N: ');
  13.   ReadLn(n);
  14.  
  15.   num := 1;
  16.  
  17.   for i := 1 to n do
  18.   begin
  19.     case i mod 4 of
  20.       1: num := num * 2;
  21.       2: num := num * 3;
  22.       3: num := num * 4;
  23.       0: num := num * 6;
  24.     end;
  25.     Write(num, ' ');
  26.   end;
  27.  
  28.   ReadLn;
  29. end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ingrese el valor de N:
https://ideone.com/1eAhBM
language:
Pascal (fpc 3.0.4)
created:
14 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!