Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
пирамида.................
1 и 5
3
5
2
4
Все вроде так у меня просто по икт 5, но вроде все
<span>
using System;
namespace Matrix
{
class MainClass
{
private static int size; // Размер матрицы
public static void Main (string[] args)
{
size = Int16.Parse(Console.ReadLine ());
int[,] matrix = new int[size, size];
for (int i = 0; i < size; i++) {
for (int j = 0; j < size; j++) {
if (i == 0 || j == 0 || i == (size - 1) || j == (size - 1)){
matrix [i, j] = 1;
} else {
matrix [i, j] = 0;
}
}
}
/*for (int i = 0; i < size; i++) { // Вывод матрицы в консоль
for (int j = 0; j < size; j++) {
Console.Write (matrix [i, j]);
}
Console.WriteLine ();
}*/
}
}
<span>}</span>
</span>
В эфиопии ученые обнаружили человека которому 160 тыс.лет. Они полагают,что примерно 200 лет назад появился человек разумный.