Witam!
Potrzebuję pomocy w pascalu.
Mam napisać program gdzie dana jest liczba n<1 i ciąg n liczb całkowitych. Program ma wypisywać liczby pierwsze.
Z góry dziękuję! ;)
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
Raczej n>1. Ponieważ ilość liczb całkowitych jest liczbą naturalną. A więc do rzeczy:
program LiczbaPierwsza;
uses CRT;
var
n,i,j:integer;
t1: array[0..100] of Integer;
t2: array [0..100] of Integer;
begin
clrscr;
write('Podaj ilosc liczb ');
readln(n);
for i:=1 to n do
begin
writeln('Podaj ',i,' liczbe');
readln(t1[i]);
end;
for j:=1 to n do
begin
i:=2;
while ((t1[j] mod i)<>0) and (i<t1[j]) do i:=i+1;
if i=t1[j] then
t2[j]:=t1[j];
end;
writeln('Liczby pierwsze to ');
for i:=1 to n do
begin
if t2[i]<>0 then
begin
write(t2[i],' ');
end;
end;
readln;
end.