Tugas: Tutorial Free Pascal-->Program kelipatan tiga

program kelipatan_3;

uses wincrt;

var

i:integer;

begin

writeln('kelipatan 3 sampai 21:');

for i:=3 to 21 do

if i mod 3 =0 then

writeln(i);

end.

By Gusti Randy

Share :

Tweet

✚

Related Post