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

tarantula90117.11.2008 - 17:53
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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Klavyeden girilen sayıların çift veya tek olduğunu bulan program.
Klavyeden girilen sayıların çift veya tek olduğunu bulan program.
(Ortalama: 5 üzerinden 1.7 - 3 Oy)
3