Şifreleme

Basit bir şifreleme kodu. Bilene kadar doğru şifreyi sorar.	Kategori	: Pascal
	Gönderen	: uguronline
	Telif	:
	Tarih	: 23 Haziran 2006
	Örnek Dosya	: Bulunmamakta
	Okunma Sayısı	: 8085
	Puan	: 8,2 / 21 Oy
	Puan Verin	:

	Arkadaşına yolla Favorilere ekle Yazdırılabilir sayfa Pascal forumu Bu kategoriye kod ekleyin


	uses crt; var a:string[10]; b:integer; begin while a<>'mydesign' do begin b:=b+1; write('Şifre Giriniz >'); readln(a); end; writeln(b,' incide Şifreyi Bildiniz'); readln end.