tugas 30

 Tugas 30
1.       Jika y diinputkan nilai 16, apakah output dari algoritma di bawah ini:
     Kamus Data
             isFalse: Boolean
             y: Integer
     BEGIN
            Input(y)
            isFalse <-- True
         
            If (True) Then
                If ( ((y Mod 2) = 0) AND isFalse )       
                            y <-- y Div 3     
                Else     
                             y <-- y * y 
                       Endif
   
             Else  
                y <-- 100
             Endif      
             output(y)
     END
5
Ouputannya adalah 5
Dalam Bahasa Pascal
uses crt;
var
        Isfalse:Boolean;
        Y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan nilai Y: ');
        READLN(Y);
        Isfalse := True;

        If(true) then
                If(((Y mod 2) = 0) And Isfalse) Then Y := Y div 3
                Else
                        Y:= Y * y
        Else
                Y := 100;
        WRITELN('Nilai Y: ',Y);
        READLN();

End.