procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
then begin
i := 5;
sqrtn := trunc(sqrt(n));
ip := false;
while i <= sqrtn do
begin
if n mod i = 0 then exit;
inc(i, 2)
end;
ip := true
end
else ip := (n = 2) or (n = 3)
end;
var n, m: longint;
mp: boolean;
begin
m := 3;
write('n = ');
readln(n);
if n <= m
then writeln('Prime Mersenne numbers, smaller this number, don''t exist.')
else begin
writeln('Prime Mersenne numbers, there is less than this number:');
while n > m do
begin
isprime(m, mp);
if mp then writeln(m);
m := m * 2 + 1
end
end;
readln
end.
Организмы отличаются между собой рядом морфологических, анатомических, физиологическихпризнаков, поведенческих реакций, определяемых различиями в наборе белков их клеток. Информация о первичной структуре белков, определяющей все другие виды структур, заключена в последовательности нуклеотидов в молекулах ДНК, что и называется наследственной, или генетической, информацией. В каждой молекуле ДНК заключена информация о многих признаках организма, определяемых соответствующими белками. Молекулы ДНК образованы нуклеотидами четырех типов, отличающихся друг от друга наличием одного из четырех азотистых оснований: А, Г, Т, Ц. Поэтому в молекулах ДНК четыре кодовых знака-нуклеотида кодируют 20 аминокислот, входящих с состав белков.
Наследственная (генетическая) информация – это информация о первичной структуре всех белков того или иного организма. Именно белки являются основой уникальности каждого вида живых организмов. Кроме того, особи одного и того же вида отличаются друг от друга рядом признаков. Индивидуальную неповторимость каждой особи также обеспечивают белки. Свойства белков определяются прежде всего их первичной структурой, т.е. последовательностью аминокислот. Информацию о первичной структуре всех белков организма содержат молекулы ДНК.
Участок молекулы ДНК, содержащий информацию о первичной структуре одного белка (либо тРНК, либо рРНК), получил название ген. Молекулы ДНК содержат четыре типа нуклеотидов, причем определенные сочетания нуклеотидов кодируют те или иные аминокислоты, входящие в состав белков. Система записи информации о первичной структуре белков в виде последовательности нуклеотидов получила название генетического кода.
var i, sqrtn: longint;
begin
if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
then begin
i := 5;
sqrtn := trunc(sqrt(n));
ip := false;
while i <= sqrtn do
begin
if n mod i = 0 then exit;
inc(i, 2)
end;
ip := true
end
else ip := (n = 2) or (n = 3)
end;
var n, m: longint;
mp: boolean;
begin
m := 3;
write('n = ');
readln(n);
if n <= m
then writeln('Prime Mersenne numbers, smaller this number, don''t exist.')
else begin
writeln('Prime Mersenne numbers, there is less than this number:');
while n > m do
begin
isprime(m, mp);
if mp then writeln(m);
m := m * 2 + 1
end
end;
readln
end.