Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği
"Delphi" Programlama dilinde "1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği" ile ilgili kod örneği aşağıdadır.
var
i: Integer;
begin
for i := 1 to 100 do
begin
if i mod 3 = 0 then
WriteLn(i);
end;
end;