Programalama > PASCAL

Etiketler: sayı, tahmin, programı

Ort. 0
Puan ver:
uses crt;

var

a,b:integer;

begin

 clrscr;

 textcolor(white);

 writeln('UYARI : Sadece Bir Tahmin Hakkınız Var !');

 writeln;

 textcolor(green);

 write('Tahmin edilecek sayıyı giriniz :'); readln(a);

 clrscr;

 textcolor(red);

 write('Tahmin ettiginiz sayıyı giriniz :'); readln(b);

 textcolor(green);

 writeln;

 if a=b then

 writeln('  TEBRIKLER SAYIYI BULDUNUZ')

 else

 writeln(' :( Üzgünüz Sayıyı Bulamadınız.. ');

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 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.