hola a todos buenos dias, tardes o noches
Me pueden ayudar con este código estoy al atrapado en su logica me sería de utilidad su generosa ayuda:
Código Delphi
[-]var
nombre, identificar:String;
identificacion, pasidentificar, pass2:Integer;
nompass, password:Boolean;
begin
write('Ingrese su nombre por favor: '); readln(nombre);
identificar:= 'Cesar';
nompass:= (nombre = identificar);
identificarpasidentificar:=
pass2:= 1234;
password:= (pasidentificar = pass2);
if nompass then begin
write('Ingrese su contasena por favor: ');
readln(pasidentificar);
if password then begin
writeln('Bienvenido hermano entre por favor');
end else begin
writeln('Contrasena Incorrecta');
end;
end else begin
writeln('Ese NO es tu nombre');
end;
readln
end.
sin mas por el momento y en espera de su generosa ayuda
serka