Wednesday, 06 February 2019 17:29

NUMERE PRIME

Written by
Rate this item
(0 votes)

Să se scrie un program care să determine dacă un număr dat de la tastatură este prim sau nu. Limbajul C: 

#include <stdio.h>; int n,r,i;

int main()

{

printf("Alegeti un numar natural >1: ");
scanf("%d",&n);
    if (n<2) printf("Mai cititi inca o data cerinta!");
                   else if (n==2) printf("Numarul 2 ESTE prim!");
                                            else {

                                                      r=(n%2);
                                                      if (r==0) printf("Numarul %d NU ESTE prim!",n);
                                                                       else {

                                                                                 i=2;
                                                                                do {

                                                                                        r=(n%i);
                                                                                        i++;

                                                                                       }

                                                                        while((r!=0)&&(i if (r==0) printf("Numarul %d NU ESTE prim!",n);
                                                                                                                          else printf("Numarul %d ESTE prim!",n);

                                                                               }
                                                   }

}

 

LIMBAJUL PASCAL:

program prim;
uses crt;
var n,r,i:integer;
begin
clrscr;
write('Alegeti un numar natural >1: ');
read(n);
    if n<2 then writeln('Mai cititi inca o data cerinta!')
                else if n=2 then writeln('Numarul 2 este prim!')
                                    else
                                         begin
                                                 r:=n mod 2;
                                                if r=0 then writeln('Numarul ',n,' NU este prim!')
                                                            else
                                                                 begin
                                                                         i:=2;
                                                                              repeat
                                                                                     r:=(n mod i);
                                                                                     i:=i+1;
                                                                              until (r=0) or (i>(n div 2));
                                               if (r=0) then writeln('Numarul ',n,' NU ESTE prim!')
                                                              else writeln('Numarul ',n,' ESTE prim!');
                                                                 end;
                                          end;
end.

CHESTER the Tester

CHESTER este administratorul și realizatorul acestui site.

This email address is being protected from spambots. You need JavaScript enabled to view it.

Leave a comment

Make sure you enter all the required information, indicated by an asterisk (*). HTML code is not allowed.

Top