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.



Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Su sesi	PASCAL	651
Pascal dan photoshop	PASCAL	719
Pascalda sürekli renk değiştiren yazı	PASCAL	621
Kayan yazi	PASCAL	424
Şifreleme.	PASCAL	720