@DFachri
var N,i,x,y:longint; A:array[1..100] of longint; begin readln(N); for i:=1 to N do begin read(A[i]); end; x:=0; y:=0; for i:=1 to N do begin if (x<...
function prima(x:longint) :boolean; var i:longint; prime:boolean; begin prime:=true; if (X<=1) then begin prime:=false; end; for i:=2 to X-1 do beg...
Kita misalkan 1 adalah bendera terangkat, dan 2 adalah bendera turun. Untuk Bendera ke 1 dan 15 (pojok), kita perhatikan bahwa ada kalimat "melih...