Soru 08: Birden yüze kadar tek ve çift sayıların toplamlarını bulan program

 

{1-100 arasındaki çift ve tek sayıların toplamlarını bulan program}

program te_cift_toplam;

uses crt;

var

  i, cift, tek:integer;

begin

  clrscr;

  for i:=1 to 100 do

    if (i/2)=int(i/2) then cift:=cift+i

                      else tek :=tek +i;

  writeln('1-100 arası tek sayılar toplamı : ',tek);

  writeln('1-100 arası çift sayılar toplamı: ',cift);

  readkey;

end.