>>
>>
>>
>>
>>
>> for i from 1 by 1 to 5 do
print(i);
end do;
for i from 2 by 2 to 6 do
Sum(j^i, j=1..n)=expand(sum(j^i, j=1..n));
end do;
s:=0:
seznam:=[1,2,3,4,5]:
for n in seznam do
if irem(n,2)=0 then s:=s+n^2 fi
od:
s;
x:=256;
while x>1 do x:=x/4 end do;
a:=20: b:=12:
while b<>0 do
d:=irem(a,b);
a:=b;
b:=d;
end do;
>>
>>
>>
>>
>>
lprint(`celociselny NSD je`,a);
`celociselny NSD je`, 4
euclid:=proc(m::posint,n::posint)
local a,b,r:
a:=m:
b:=n:
r:=irem(a,b):
while r<>0 do
a:=b:
b:=r:
r:=irem(a,b):
od:
b:
end:
euclid(20,12);
for i from 3 by 2 do
if isprime(2^i-1)
then print(2^i-1,`je prvocislo`)
else break
end if
end do;
max3:=proc(a,b,c)
print(`nalezeni maxima z cisel`, a,b,c);
if a<b then
if b<c then c else b end if
elif a<c then c
else a
end if;
>>
>>
>>
>>
>>
>>
>>
end:
max3(3,2,1);
save(max3, "max3.txt");
restart;
read "max3.txt";
max3(1,2,3);
maxN:=proc() local result, i;
if not (type([args], list(numeric)))
then return('procname(args)');
elif nargs>0
then
result:=args[1];
for i from 2 to nargs do
if args[i]>result then result:=
args[i] fi od;
result;
fi;
end:
maxN(9,2,3,4,5.0);
QETPICZWCQE\MQE [\Q
M JSV M XLVY WXIT HS HMWTPE] M
M!
M!
M!
M!
M!
M JSV M XLVY WXIT HS TVMRX WYQ NBM N R
N !
R
N
N !
R
N
N !
R
N
M OMPP EPP
S HSRI
M WI^REQ ? A
S ? A
M W
S
M JSV M MR WI^REQ HS MJ VIQEMRHIV WI^REQ?MA ! XLIR
W W WI^REQ?MAB
S HSRI
M TVMRX WSYGIX GXZIVGY W ! W
WSYGIX GXZIVGY W !
S
M \
S
QETPICZWCQE\MQE [\Q
M [LMPI \" HS \ \
S HSRI
M \
S
M E F
[LMPI RSXIUYEP F HS
H VIQEMRHIV E F
E F
F H
M TVMRX GIPSGMWIPR] 27( NI E
GIPSGMWIPR] 27( NI
S
M OMPP EPP
S HSRI
M IYOPMH E F !
FPSGO ?A PSGEP H H VIQEMRHIV E F
[LMPI RSXIUYEP H HS
E F F H H VIQEMRHIV E F F
S IYOPMH E F !FPSGO ?A PSGEP H H VIQEMRHIV E F [LMPI
RSXIUYEP H HS E F F H H VIQEMRHIV E F F
M IYOPMH
S
M JSV M WXIT HS
MJ TVMQIT BM
XLIR TVMRX BM NI TVZSGMWPS
IPWI VIXYVR BM
NI TVZSGMWPS
NI TVZSGMWPS
NI TVZSGMWPS
S
M QE\ E F G !
FPSGO ?A TVMRX REPI^IRM QE\MQE ^ GMWIP E F G
MJ E F XLIR
MJ F G XLIR G IPWI F
IPWIMJ E G XLIR G
IPWI E
QETPICZWCQE\MQE [\Q
M QE\
REPI^IRM QE\MQE ^ GMWIP
S
M WEZI LSQIC^EQ TPGL Z]YOE QE\MQE QE\MQYQ QE\
S LSQIC^EQ TPGL Z]YOE QE\MQE QE\MQYQ
M OMPP EPP
S HSRI
M PSEH LSQIC^EQ TPGL Z]YOE QE\MQE QE\MQYQ
S LSQIC^EQ TPGL Z]YOE QE\MQE QE\MQYQ
M QE\
REPI^IRM QE\MQE ^ GMWIP
S
M OMPP QE\
S HSRI
M FEXGL LSQIC^EQ TPGL Z]YOE QE\MQE TVSGIHYVE QEG
VIEH ERH MRXIVTVIX JMPI LSQIC^EQ TPGL Z]YOE QE\MQE TVSGIHYVE QEG
M QE\ E F G !FPSGO ?A
TVMRX REPI^IRM QE\MQE ^ GMWIP E F G MJ E F XLIR MJ F G XLIR
G IPWI F IPWIMJ E G XLIR G IPWI E
S QE\ E F G !FPSGO ?A
TVMRX REPI^IRM QE\MQE ^ GMWIP E F G MJ E F XLIR MJ F G XLIR
G IPWI F IPWIMJ E G XLIR G IPWI E
M QE\
REPI^IRM QE\MQE ^ GMWIP
S
" QE\2 ?PA !FPSGO ?VIWYPXA
MJ PIRKXL P "
XLIR
VIWYPX P? A
JSV M XLVY PIRKXL P HS
MJ P?MA"VIWYPX XLIR
VIWYPX P?MA VIXYVR VIWYPX
M QE\2
S