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.
4 Nisan 2008 Cuma
Şifreleme.
Kaydol:
Kayıt Yorumları (Atom)
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.
Hiç yorum yok:
Yorum Gönder