Автор: соня 8.06.2007 13:04
помогите пожалуйста разобраться....
Дан список, элементы которого являются целыми числами. Найти простые элементы.
Код
type
listptr=^list;
list=record
x:real;
nextptr:listptr;
end;
var
firstptr,curptr,ptr,prchisloptr:listptr;
n,i:integer;
prchislo:real;
begin
write('‚Введите количество элементов списка >');
readln(n);
writeln('‚Введите элементы списка :');
firstptr:=nil;
for i:=1 to n do
begin
new(curptr);
write('x',i,'=');
readln(curptr^.x);
if firstptr=nil
then
firstptr:=curptr
else
ptr^.nextptr:=curptr;
ptr:=curptr;
end;
if firstptr<>nil
then
curptr^.nextptr:=nil;
curptr:=firstptr;
if curptr^.x>=1
then
curptr^.x:=prchislo;
curptr:=curptr^.nextptr;
???????????????????????????
readln;
end.
как мне найти и вывести эти числа....
Автор: volvo 8.06.2007 15:06
Пробегать по всему списку, и каждый элемент проверять на простоту... Как - см. FAQ. Если число простое - вывод на печать...