Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
DECLARE nums FIXED BINARY(31) DIM(3) INIT(7,10,13);
DECLARE n,i FIXED BINARY(31);
DECLARE isPrime BIT(1);
DO n = 1 TO 3;
isPrime = '1'B;
DO i = 2 TO nums(n)-1;
IF nums(n) MOD i = 0 THEN isPrime = '0'B;
END;
IF isPrime = '1'B THEN PUT SKIP LIST(nums(n), 'is Prime')
ELSE PUT SKIP LIST(nums(n), 'is Not Prime');
END;Coding works best on desktop or with an external keyboard.