Ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt как известно, цепочка днк формируется из четырёх аминокислот, обозначаемых соответственно буквами ‘ a’, ‘ c’, ‘ g’ и ‘ t’. таким образом, цепочку можно представить в виде строки, составленной из этих букв. известно, что у всех марсианских видов цепочка днк состоит из чётного числа аминокислот и что у марсианских животных цепочка днк обладает следующим свойством: она читается слева направо так же, как и справа налево (то есть является палиндромом), при этом каждая из её половин также читается слева направо так же, как и справа налево. не таким свойством цепочки принадлежат растениям. на практическом занятии по биологии на марсианской летней олимпиадной школе дали — по заданной цепочке днк вымершего марсианского вида выяснить, принадлежит ли эта цепочка животному. формат ввода вход содержит цепочку днк — одну непустую строку, состоящую из символов ‘ a’, ‘ g’, ‘ t’ и ‘ c’. гарантируется, что длина строки чётна и не превосходит 100. формат вывода если данная цепочка принадлежит марсианскому животному, выведите “ yes”. иначе выведите “ no”.
Ответы
#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;
int main() {
double b[100][100];
int m,n;
cout << "m = ";
cin >> m;
cout << "n = ";
cin >> n;
double min, s=0;
srand(time(0));
for (int i = 0; i < m; i++){
for (int j = 0; j < n; j++){
b[i][j]=-20 + (101.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << setprecision (2) << b[i][j];
}
cout <<endl;
}
for (int i = 0; i < m; i++){
min = b[i][0];
for (int j = 1; j < n; j++)
if (b[i][j]<min) min=b[i][j];
s+=min;
}
cout << "s = " << s << endl;
}
Пример:
m = 4
n = 5
13.22 57.79 50.37 28.83 8.94
48.01 32.86 -16.49 -5.80 67.08
15.84 26.60 42.95 -0.34 46.37
10.89 -3.28 0.48 -11.50 77.09
s = -19.39
#include <iostream>
#include <iomanip>
using namespace std;
int main() {
double b[100][100];
int m,n;
cout << "m = ";
cin >> m;
cout << "n = ";
cin >> n;
double min, s=0;
srand(time(0));
for (int i = 0; i < m; i++){
for (int j = 0; j < n; j++){
b[i][j]=-20 + (101.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << setprecision (2) << b[i][j];
}
cout <<endl;
}
for (int i = 0; i < m; i++){
min = b[i][0];
for (int j = 1; j < n; j++)
if (b[i][j]<min) min=b[i][j];
s+=min;
}
cout << "s = " << s << endl;
}
Пример:
m = 4
n = 5
13.22 57.79 50.37 28.83 8.94
48.01 32.86 -16.49 -5.80 67.08
15.84 26.60 42.95 -0.34 46.37
10.89 -3.28 0.48 -11.50 77.09
s = -19.39
Var a: array[1..10] of integer;
b: array[1..10] of real;
i,n: integer;
s: real;
begin
s:=0; n:=0;
write('массив a: ');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
write(a[i],' ');
end;
s:=s/n;
writeln;
writeln('среднее арифметическое отрицательных: ',s);
writeln('количество отрицательных: ',n);
write('массив b: ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=s
else b[i]:=a[i];
write(b[i]:7:3);
end;
end.
массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200 5.000
b: array[1..10] of real;
i,n: integer;
s: real;
begin
s:=0; n:=0;
write('массив a: ');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
write(a[i],' ');
end;
s:=s/n;
writeln;
writeln('среднее арифметическое отрицательных: ',s);
writeln('количество отрицательных: ',n);
write('массив b: ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=s
else b[i]:=a[i];
write(b[i]:7:3);
end;
end.
массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200 5.000
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько бит требуется для хранения десятичного числа 240
Автор: Klicheva_Ermachenkova1536
в паскале абц if7 полность как решать все свои и мне ещё надо if8
Автор: keshka12719
васс. нужна блок схема и сама программа умоляю .
Автор: alexkortyukov
Do smart tv provide access to the internet?
Автор: Deniskotvitsky6422
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
if s[i] <> s[s.Length-i+1] then
begin
Palindrome:=false;
exit;
end;
Palindrome:= true;
end;
begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
Writeln('YES')
else
Writeln('NO');
end.
Пример:
ACAACA
YES