Pular para o conteúdo

pares ou impares

Verifica se o número é par ou ímpar.
Perfil removido removido
Hits: 5.270 Categoria: Pascal/Kylix Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

Verifica se o número é par ou ímpar.
Download 1312E2.PAS Enviar nova versão

Esconder código-fonte

program exercicio2;

var x:integer;
    resto:real;
function par(x:integer):real;
begin
     resto:=x mod 2;
     if resto=0
     then writeln('o numero ',x,' e par')
     else if resto<>0
     then writeln('o numero ',x,' nao e par');
end;

begin
    clrscr;
    writeln('digite um n§ ');
    readln(x);
    par(x);
    readln;
end.

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Soma dois Valores e exibe o resultado

Mostrar maior e menor

Calculadora completa com porcentagem(Lazarus)

Calculadora utilizando until e case

Nenhum comentário foi encontrado.

Contribuir com comentário

Entre na sua conta para comentar.