- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
program Project2;
{$APPTYPE CONSOLE}
{#1.Ввести последовательность натуральных чисел. Если в последовательности есть
простые числа, упорядочить последовательность по неубыванию суммы цифр.
В противном случае удалить из последовательности числа с нечетным количеством
цифр и продублировать 4-хзначные числа. Последовательность хранить в
односвязном списке. Перед завершением программы очистить динамическую память с
помощью процедуры Dispose.}
uses
SysUtils;
type
adres=^Element;
element=
RECORD
body:integer; next:adres; end;
Var n,i:integer;
dub,nov,t,first,p,p0:adres;
pred:adres;
a:integer;
pr:boolean;
function sum(a:integer):integer;
var i,s:integer;
begin
s:=0;
while a<>0 do begin
inc(s,a mod 10);
a:=a div 10;
end;
sum:=s;
end;
function prostoe(a:integer):boolean;
var i:integer;
p:boolean;
begin
a:=abs(a);
p:=true;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then begin p:=false; break; end;
prostoe:=p;
if a=1 then prostoe:=false;
end;
BEGIN
pr:=false;
reset(input,'input.txt');
rewrite(output,'output.txt');
first:=NIL;
while not seekeof do begin
read(a);
new(p);
p^.body:=a;
if first=nil then first:=p else p0^.next:=p;
p0:=p;
end;
p:=first;
while p<>nil do begin
if prostoe(p^.body) then pr:=true;
p:=p^.next;
end;
if not pr then begin
p:=first;
if (length(inttostr(p.body)) mod 2<>0) then first:=p.next;
p:=first;
while p<>nil do
begin
if (p.next <> nil) and (length(inttostr(p.next^.body)) mod 2<>0) then
begin
T:=p.next;
p.next:=T.next;
Dispose(T);
end
else p:=p.next;
end;
p:=first;
while p<>nil do
begin
if (p <> nil) and (length(inttostr(p.body))=4) then
begin
new(dub);
dub.body:=p.body;
dub.next:=p.next;
p.next:=dub;
p:=p.next.next;
end