0-100 Arası Tek Ve Çift Sayıların toplamını Bulan Program
Yazar
Mesaj
GÖZDE
Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: 0-100 Arası Tek Ve Çift Sayıların toplamını Bulan Program Cuma Haz. 06 2008, 12:15
Program Tek_cift; uses wincrt; var i, cift, tek:integer; begin clrscr; for i:=0 to 100 do if (i/2)=int(i/2) then cift:=cift+i else tek :=tek +i; writeln('0-100 arası tek sayılar toplamı : ',tek); writeln('0-100 arası çift sayılar toplamı: ',cift); readkey; end.
0-100 Arası Tek Ve Çift Sayıların toplamını Bulan Program