fork download
copy 
  1. program SerieBasica;
  2.  
  3. var
  4.   n, i, num: Integer;
  5.  
  6. begin
  7.   Write('Ingrese el valor de N: ');
  8.   ReadLn(n);
  9.  
  10.   num := 1;
  11.  
  12.   for i := 1 to n do
  13.   begin
  14.     case i mod 4 of
  15.       1: num := num * 2;
  16.       2: num := num * 3;
  17.       3: num := num * 4;
  18.       0: num := num * 6;
  19.     end;
  20.     Write(num, ' ');
  21.   end;
  22.  
  23.   ReadLn;
  24. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ingrese el valor de N:
https://ideone.com/Im1Bxk
language:
Pascal (fpc 3.0.4)
created:
13 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!