Код - (франц. code) - совокупность знаков (символов) и система определенныхправил, при помощи которых информация может быть представлена(закодирована) в виде набора из таких символов для передачи, обработки ихранения (запоминания). Конечная последовательность кодовых знаковназывается словом. Наиболее часто для кодирования информации используютбуквы, цифры, числа, знаки ГЕНЕТИЧЕСКИЙ - свойственная живыморганизмам единая система ""записи"" наследственной информации в молекулахнуклеиновых кислот в виде последовательности нуклеотидов. Для краткостикаждый нуклеотид обозначается русской или латинской заглавной буквой, скоторой начинается название азотистого основания, входящего в его состав:А (A) - аденин, Г (G) - гуанин, Ц (C) - цитозин, в ДНК Т (T) - тимин, вмРНК У (U) - урацил. Последовательность из трех букв в кодонах ипредставляет графическое выражение кода генетического. Реализация кодагенетического в клетке происходит в 2 этапа. Первый (транскрипция)протекает в ядре и заключается в синтезе молекул матричной, илиинформационной, рибонуклеиновой кислоты (мРНК) на соответствующих участкахДНК. При этом последовательность нуклеотидов ДНК ""переписывается"" внуклеотидную последовательность мРНК, комплементарную ДНК. Второй этап(трансляция) протекает в цитоплазме на рибосомах; при этомпоследовательность нуклеотидов мРНК переводится в последовательностьаминокислот в синтезирующемся белке. 61 кодон из 64 кодирует определенныеаминокислоты, а 3 т. н. стоп-кодона определяют окончание синтезаполипептидной цепи. Код называется вырожденным, т. к. несколько кодоновмогут кодировать одну и ту же аминокислоту, но он не являетсядвусмысленным, поскольку один и тот же кодон не способен кодировать 2различные аминокислоты. Расшифровка кода генетического, т. е. нахождениесоответствия между кодонами и аминокислотами, осуществлена американскимибиохимиками М. У. Ниренбергом, С. Очоа и др. в 1961-65.
Var
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.
Да поместятся :)
157*3=471 МБ
2ГБ=2000МБ
2000-471=1529 МБ останется
Var
st:string;
i:byte;
begin
readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его
end.