![]() |
şifre
uses crt;
var a:array[1..9]of char; x:integer; begin clrscr; write('sifreyi giriniz:'); for x:=1 to 9 do begin gotoxy(x,1); a[x]:=readkey; gotoxy('*'); end; gotoxy(20,20); if a='GOKHANAYGUN' then write(a) else write('hatalışifre'); readkey; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 11:21 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.