Pular para o conteúdo

Maior e menor

Este script nos diz o maior e o menor, entre 3 números digitados.
Leonardo leonardo_cdan
Hits: 4.097 Categoria: Pascal/Kylix Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

Este script nos diz o maior e o menor, entre 3 números digitados.
Download MAIOR.PAS Enviar nova versão

Esconder código-fonte

program maior_e_menor;

var
a,b,c :integer;

begin
   writeln('Digite 3 numeros, A, B e C');
   readln(a);
   readln(b);
   readln(c);
    if (a < b) and (a < c) then
    writeln ('O menor numero eh o ',a)
    else
    if b<c then
    writeln('o menor numero eh o ',b)
    else
    writeln('O menor numero eh o ',c);

    if (a>b) and (b>c) then
    writeln('O maior numero eh o ',a)
    else
    if b>c then
    writeln ('O maior numero eh o ',b)
    else
    writeln('O maior numero eh o ',c);
end.

escreve os números de 1 a 9 com repeat - until

Crivo de Eratóstenes Simples em Ada 95

calculo da somatoria da diagonal principal

Cauculadora em Pascal

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

Nenhum comentário foi encontrado.

Contribuir com comentário

Entre na sua conta para comentar.