Program penjumlahan 5 urutan bilangan ganjil

Program firman;

Uses Wincrt;

Var i,tot:integer;

Begin    

     For i:= 1 to 10 do

     Begin

          if (i mod 2 = 1) then

          Begin

               tot:=tot+i;

               write(' ',i);

          End;

     end;

     Writeln;

     Writeln('Total bilangan ganjil: ',tot);

End.

layout

Share On