Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- __________________________________________________________________________
- Prva zadaca---------------------------------------------------------------
- n = Input["Vnesi promenliva"]
- m = 1;
- While[m <= n, If[m*2 <= 10 && Mod[m, 2] == 0, Print[m]]; m++]
- __________________________________________________________________________
- Votra zadaca--------------------------------------------------------------
- n = Input["Vnesi go n"]
- max1 = 0;
- a = {};
- For[i = 1, i <= n, i++, broj = Input["Vnesi broj"]; AppendTo[a, broj];
- If[broj > max1, max1 = broj]]
- max1
- For[j = 1, j <= n, j++, If[Mod[max1, j] == 0, Print[j]]]
- _________________________________________________________________________
- Treta zadaca-------------------------------------------------------------
- n = Input["Vnesi go n"]
- br = 1;
- While[n > 0, Print[n]; br = br*Mod[n, 10]; n = IntegerPart[n/10];]
- br
- ********************************obtained*tnx*to*Vlade*&*Vlade*(bitolapower)*****************************
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement