while döngüsü ile 15 tane tek sayının toplamını yapan program.

while döngüsü ile 15 tane tek sayının toplamını yapan program.



uses crt;
   var
   sayi,sayi1,kalan,teksayi:integer;
   begin
   sayi1:=0;
   sayi:=1;
   while sayi<=15 do begin
   sayi1:=sayi1+1;
   kalan:=sayi1 div 2;
   if (kalan=1) then begin
   teksayi:=teksayi+sayi1;

   sayi:=sayi+1;
   end;
   readln;
   end.


Linkback: https://www.buyuknet.com/while-dongusu-ile-15-tane-tek-sayinin-toplamini-yapan-program-t10123.0.html