Programalama > PASCAL

Etiketler: girilen, sayının, tek, çift, adet

Ort. 1
Puan ver:
program tek_cift_2;
uses crt;
type
    sayi = set of 0..9;
var
   ch : char;
   teksay, ciftsay : string;
   i, j : shortint;
begin
     clrscr;
     {$R+}
     write('Ltfen bir metin giriniz...>');
     while not eoln do
           begin
                read(ch);
                if ch in ['1','3','5','7','9'] then
                     begin
                          i := i + 1;
                          teksay := teksay + ch;
                     end
                else
                     begin
                          j := j + 1;
                          ciftsay := ciftsay + ch
                     end;
           end;
     readln;
     writeln;
     writeln('tek say adeti ', i, ' dir. ', 'Ÿunlardr > ', teksay);
     writeln;
     writeln('‡ift say adeti ', j, ' dir. ', 'Ÿunlardr > ', ciftsay);
     readln;
end.



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.