100-150 arasındaki

100-150 arasındaki
100-150 arasındaki
a)Tek sayıların toplamını
b)Çift sayıların toplamını
c)Asal sayıların toplamını
d)Tüm sayıların toplamını bulan program.

uses crt;
      var
      asal,k,a,b,c,i,j:integer;
      begin
      clrscr;
         for i:=100 to 150 do begin
         a:=a+i;
            if (i mod 2 =0) then

            b:=b+i
      else
      c:=c+i;
         for j:=1 to i do begin
         if (i mod j=0) then
      asal:=asal+1;
      if asal=3 then
         break;
         end;
         if asal=2 then   begin
         k:=k+1;
   gotoxy(54,k+5);
         writeln(i);
         end;
         asal:=0;
         end;
         gotoxy(5,1);
         writeln( 'Tek sayıların toplamı : ',c);
         gotoxy(5,3);
         writeln( 'Çift sayıların toplamı: ',b);
         gotoxy(5,5);
         writeln( 'Tüm sayıların toplamı : ',a);
         gotoxy(40,5);
         writeln(' *********Asal Sayılar******** ');
   readkey;
         end.

Linkback: https://www.buyuknet.com/100150-arasindaki-t38220.0.html