Results 1 to 14 of 14
Thread: PASCAL
Hybrid View
-
6th May 2006 18:03 #1Registered 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.
-
6th May 2006 18:17 #2
( ):
, , " " - .. 100 ( ) .Code:BEGIN Writeln('31035053229546199656252032972759319953190362094566672920420940313'); END., . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
6th May 2006 19:11 #3Registered User
Join Date: May:2006
Location: Pir
Posts: 2
-
6th May 2006 19:20 #4
-
8th May 2006 12:02 #5
1. - integer . long/longint .
2. . .: XaMaB; . 0.42
In God we Trust (all others must submit a X.509 certificate). , ()
-
8th May 2006 13:02 #6




Reply With Quote
" ? ..."
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in