Геном - наследственный материал, заключенный в клетке организма. Геном человека построен из ДНК.
Вывод: вариант б
Function gcd(n, m: integer): integer;begin while n <> m do if n > m then n := n - m else m := m - n; gcd := n;end;var i, j, k, n: integer;begin readln(n); k := 0; for i := 1 to n do begin if nod(i, n) = 1 then write(i, ' '); end;end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Создаем матрицу, оценки вводятся с клавиатуры и считается количество оценок, которые <=2 в каждой строке. Последний столбец показывает количество неуд. по каждому предмету. в каждой строке 6 студентов, в конце каждой строки количество неуд по этому предмету
DIM a(4,6)
PRINT "input ocenki"
FOR i = 1 TO 4
FOR j = 1 TO 6
INPUT a(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
k = 0
FOR j = 1 TO 6
PRINT a(i, j);
IF a(i, j) <= 2 THEN k = k + 1
NEXT j
PRINT k
NEXT i<span>
</span>