Menor número, maior número, soma e multiplicação
Publicado por Santiago Staviski (última atualização em 13/11/2009)
[ Hits: 11.959 ]
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.
Array de números aleatórios não-repetidos de um intervalo em Pascal
escreve os números de 1 a 9 com repeat - until
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como instalar protetores de tela (Debian e derivados)
Conheça a 4Devs, caixa de ferramentas online para desenvolvedores
Como converter um vídeo MP4 para um GIF para publicar no README.md do seu repositório Github
Re: Copia e Cola no SED --> Processador de textos (2)
Driver de rede realtek 8821ce bugado (1)
Problemas de compartilhame... de impressora no Ubuntu 24.04 (3)