Results 1 to 14 of 14

Thread: PASCAL

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: May:2006
    Location: Pir
    Posts: 2

    PASCAL

    . 1 50 PASCAL )


    Program Fact;
    var
    S:integer;
    I:integer;
    A:array[1..50] of integer;
    Begin
    A[1]:=1;
    S:=1;
    For I:=2 to 50 do
    Begin
    A[I]:=A[I-1]*I;
    S:=S+A[I];
    End;
    Writeln('Sumata ot factorielite e ',S)
    End.

  2. #2
    ɐ-əpoɔᴉu⋂ ɐ ə anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    ( ):

    Code:
    BEGIN
        Writeln('31035053229546199656252032972759319953190362094566672920420940313');
    END.
    , , " " - .. 100 ( ) .
    , . .
    "640K ught to be enough for anybody" - Bill Gates, 1981
    ::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel

  3. #3
    Registered User
    Join Date: May:2006
    Location: Pir
    Posts: 2

  4. #4
    ! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    , , . , ...
    " ? ..."

  5. #5
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,387
    1. - integer . long/longint .
    2. . .
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  6. #6
    ! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    Extend - . .
    " ? ..."

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |