Lazarus - Número Primo

Números primos são os números naturais que têm apenas dois divisores diferentes: o 1 e ele mesmo. 1) 2 tem apenas os divisores 1 e 2, portanto 2 é um número primo. 2) 17 tem apenas os divisores 1 e 17, portanto 17 é um número primo. 3) 10 tem os divisores 1, 2, 5 e 10, portanto 10 não é um número primo. procedure TForm1.Button1Click(Sender: TObject); Var X, I : integer; numprimo: boolean; Begin X:=StrToInt(InputBox('Programação para iniciantes','Informe um numero:','')); // Tenta dividir esse número por 2, 3, ... X-1 // Faz verificação se numero é primo realmente I:=2; numprimo:= true ; while (I<X) and (numprimo) do begin if (X mod I = 0) then begin numprimo:= false ; end ; I:= I+1 ; end; if (numprimo) then Begin Showmessage('O numero: '+IntToStr(X)+' é primo'); End else Begin Showmessage('O numero: '+IntToStr(X)+' Não é primo pois é divisível por '+ IntToStr(I-1)); End; end;

17/04/2026 05:02 Lazarus 1435
Topo