soma de números pares
Publicado por NewLinuxer 14/12/2005
[ Hits: 15.058 ]
Programa para fazer a soma de todos os números pares entre dois números definidos pelo usuário
Program Exemplo; {Programa para fazer a soma de todos os n£meros pares entre dois n£meros definidos pelo usu rio} uses crt; Var par,numero_1,numero_2,soma: integer; Begin ClrScr; soma:=0; Write('Primeiro n£mero--------> '); Readln(numero_1); Write('Segundo n£mero---------> '); Readln(numero_2); par:=numero_1; If par mod 2 <> 0 then par:=par+1; Repeat soma:=soma+par; par:=par+2; Until par>numero_2; Writeln('A soma dos n£meros pares entre '); WriteLn(numero_1,' e ', numero_2,' ',soma); readkey; End.
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
cadastro de um cliente com registro
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (10)
Problemas com Go-Global AppController no Ubuntu 24.04.3 (2)
Jogos baixados na Central de Aplicativos mas que não abrem (2)