Klavyeden girilen sayıların çift veya tek olduğunu bulan program.

uses crt;
   var
   i,a,kalan,cift,tek:integer;
   begin
   for i:=1 to 10 do begin
   write(‘sayıyı gir:’);readln(a);
   kalan:a mod 2;
   if (kalan=0) then
   cift:=cift+1
   else if (kalan=1) then
   tek:=tek+1;
   end;
   writeln(‘çift sayıların adedi:’cift);
   writeln(‘tek sayılarınadei:’,tek);
   readln;

   end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-sayilarin-cift-veya-tek-oldugunu-bulan-program-t8602.0.html