Menor número, maior número, soma e multiplicação
Publicado por Santiago Staviski (última atualização em 13/11/2009)
[ Hits: 11.731 ]
Homepage: http://allenkonstanz.blogspot.com
Download questaovalendoponto01.pas
O programa a seguir lê 10 números informados pelo usuário e em seguida informa como saída: o resultado da soma, resultado da multiplicação, o maior número e o menor número.
program questao01; var contador: integer; numero,soma,mult,maior,menor:real; BEGIN soma:=0; numero:=0; mult:=1; for contador:=1 to 10 do begin Write('Entre com o ',contador,'º numero: '); read(numero); soma:=soma+numero; mult:=numero*mult; mult:=mult; if contador=1 then begin maior:=numero; menor:=numero; end; if numero>maior then maior:=numero; if numero<menor then menor:=numero; end; writeln('As soma dos numeros eh: ',soma:0:2); writeln('As multiplicação dos numeros eh: ',mult:0:2); writeln('O maior numero eh: ',maior:0:2); writeln('O menor numero eh: ',menor:0:2); END.
[Script Pascal] Verificando quantos Caracteres por Segundo tem a legenda
Calculadora Empresarial Lazarus
Calculadora de décimo terceiro salário(Lazarus)
Calculadora completa com porcentagem(Lazarus)
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho no mint 2.3 (9)
Problema com alias usando locate (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba