Menor número, maior número, soma e multiplicação
Publicado por Santiago Staviski (última atualização em 13/11/2009)
[ Hits: 11.740 ]
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.
Exemplo de for que mostra 6 números em ordem crescente
intercalar dois arrays (vetores)
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Encriptografa... as particoes com LUKS, o que poderia dar errado? (0)
Qual a relevancia dos valores de bogomips com os Mhz e Ghz[DUVIDA] (2)