Skocz do zawartości

ageska

Użytkownik
  • Postów

    2
  • Dołączył

  • Ostatnia wizyta

O ageska

  • Urodziny 03/30/1990

Contact Methods

  • GG
    9854280

Osiągnięcia ageska

Newbie

Newbie (1/14)

0

Reputacja

  1. ageska

    [pascal] Tablica

    Mogłby mi to ktos sprawdzic?? Dane jest ziarno generatora z z zakresu 1..10000. Wygeneruj tablicę A zawierającą 1000 liczb całkowitych Liczby tablicy łączymy w pary: pierwszą z ostatnią, drugą z przedostatnią, itd. Każdą taką parę sumujemy i sprawdzamy, czy otrzymana suma jest liczbą pierwszą. Wejście Pierwszy wiersz wejścia zawiera liczbę całkowitą z z zakresu 1..10000. Wyjście Pierwszy wiersz wyjścia powinien zawierać jedną liczbę całkowitą: wyznaczoną ilość sum, które są liczbami pierwszymi. W wierszu drugim należy zapisać najmniejszą z otrzymanych liczb pierwszych lub liczbę 0, gdy żadna z sum nie była liczbą pierwszą. program tab06; var a:array[1..10000] of integer; d,i,n,sum,min,sump,p: integer; x:longint; begin readln(n); for i:=1 to n do readln(a); begin; x:=n/2; for i:=0 to x do begin; sum:=a+a[n-1-i]; end; end; for i:=1 to n do p:=0; begin; for d:=2 to trunc(sqrt(sum)) do begin; if (sum mod d)=0 then p:=1; break; end; end; begin; sump:=0; if p=0 then sump:=sump +1 else writeln(a, ' nie jest liczba pierwsza'); end; begin; min:=1; if sum<min then min:=sum; if sump=0 then min:=0; end; writeln('ilosc sum, ktore sa liczbami pierwszymi to',sump); writeln('najmniejsza suma ktora jest liczba pierwsza to',min); readln; end.
  2. ageska

    [pascal] Tablica

    Mam do zrobienia zadanko, w ktorego treści występuje "Liczby tablicy łączymy w pary: pierwszą z ostatnią, drugą z przedostatnią, itd. Każdą taką parę sumujemy i sprawdzamy, czy otrzymana suma jest liczbą pierwszą." Mam problem z tym, ze nie wiem jak oznaczyć tę ostatią liczbę. Możę ktoś mi pomóc??
×
×
  • Dodaj nową pozycję...