Programa de teste que de quem descobriu o Brasil e diz se o usuário acertou, usando Case

• Download exemplo19.pas
• Enviar nova versão

Esconder código-fonte

Program exemplo;

{Programa de teste que ede quem descobriu o Brasil
e diz se o usu rio acertou, usando Case}

uses crt;

Var
  resposta:char;

Begin
  clrscr;

  Writeln('Quem descobriu o Brasil?');

  Writeln('a - Silvio Santos');
  Writeln('b - Cabral');
  Writeln('c - Pl cido Domingos');

  Readln(resposta);

  Case resposta of
    'a': writeln('Resposta Errada');
    'b': writeln('Resposta Certa');
    'c': writeln('Resposta Errada');
    else writeln('Op‡Æo Inv lida');
  End;

  readkey;

end.

Números perfeitos

soma de um intervalo

Crivo de Eratóstenes Simples em Ada 95

Editor de Texto feito no Lazarus(Delphi 7 para Linux)

Executar comando do DOS.

Nenhum coment�rio foi encontrado.