Question

Turbopascal:

1.

Napisz program,który:

- wylosuje 20 liczb całkowitych z przedziału (50;100>

- znajdzie i wypisze wszystkie wylosowane liczby złożone

2.

Napisz program,który:

- wylosuje 20 liczb całkowitych z przedziału <30;80)

- znajdzie i wypisze wszystkie wylosowane liczby pierwsze

Answer 1

Zad 1:

 

program nazwa;
uses crt;
var
        zlozone:array[1..20] of integer;
        x,y,licznik:integer;

begin
clrscr;
        licznik:=0;

        writeln('Liczby zlozone: ');

        randomize;
        for x:=1 to 20 do
        begin
                licznik:=0;

                zlozone[x]:=random(100-51+1)+51;

                for y:=1 to zlozone[x] do
                begin
                        if ((zlozone[x] mod y) = 0) then
                                licznik:=licznik+1;
                end;

                if (licznik > 2) then
                        write(zlozone[x],',');
        end;

readln;
end.

 

 

 

Zad 2:

 

program nazwa;
uses crt;
var
    pierwsze:array[1..20] of integer;
        x,y,licznik:integer;

begin
clrscr;
        licznik:=0;

        writeln('Liczby pierwsze: ');

        randomize;
        for x:=1 to 20 do
        begin
                licznik:=0;

                pierwsze[x]:=random(79-30+1)+30;

                for y:=1 to pierwsze[x] do
                begin
                        if ((pierwsze[x] mod y) = 0) then
                                licznik:=licznik+1;
                end;

                if (licznik = 2) then
                        write(pierwsze[x],',');
        end;

readln;
end.