soma de números pares
Publicado por NewLinuxer 14/12/2005
[ Hits: 15.124 ]
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 Lazarus
soma da diagonal principal de uma matriz
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Warcraft II Remastered no Linux? (7)
O programa assinador digital (5)









