>
Olá, tudo bem?
Program Pzim ;
var
nome: string;
senha: integer;
Begin
writeln('__Bem Vindo!__');
writeln('________________________');
writeln('Digite sua senha!');
senha:= integer;
readln(senha);
if senha != senha then
Begin
writeln('Senha correta!');
writeln('Aproveite a sua calculadora.');
end
Else
Begin
writeln('Erro, tente novament!');
End;
End.
este foi o programa que eu tentei contra por conta , mas o if , não apresenta writeln'Erro' quando o usuário digita caracteres diferente do exigido pelo o sist.
Como devo fazer?
para diferente usa o <> nao !=
Program Pzim ;
var
nome: string;
senha: integer;
Begin
writeln(\'__Bem Vindo!__\');
writeln(\'________________________\');
writeln(\'Digite sua senha!\');
readln(senha);
if senha <> senha then
Begin
writeln(\'Senha correta!\');
writeln(\'Aproveite a sua calculadora.\');
end
Else
Begin
writeln(\'Erro, tente novament!\');
End;
End.
Muito obrigado ??