Cevaplar(2)
Merhaba,
Bir for döngüsü kurarak bunu gerçekleştirebilirsin. Döngü başlangıç değeri x=7, artış miktarı x=x+7 bitiş koşulu da x<1000 olarak belirleyebilirsin.
var
sayac,i : integer ;
begin
sayac:=0;
i:=1;
for i:=1 to 1000 do
begin
if(i mod 7 = 0) then
begin
ListBox_Sirala.Items.Add(IntToStr(i));
sayac:=sayac+7 ;
end;
end;
end;
end.
|
