//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

const
    n = 2016;

var
    A: array[1..n] of integer;
    i, m, k: integer;

begin
    for i := 1 to n do
    begin
//        A[i] := Random(10000);
                readln(a[i]);
    end;

    m := 0;
    for i := 1 to n do
        if (a[i] mod 16 = 11) and (a[i] > m) then
            m := a[i];

    writeln(m);
end.

0 0

4 года назад

Ученик работал с каталогом С :\Лето\Растения\Ежевика. Сначала он поднялся на один уровень вверх, затем спустился на один уровен

KAZAMPIR [31]

Ответ 2 <span>С:\Лето\Растения\Уход </span>

0 0

4 года назад

Как раскрасить 8 матрешек разными способами используя пять цветов

Ksu10 [527]

1-одну половину 1цветом.другую2
2-одна половинка 2,вторая 1
3-одна половинка 3,вторая 4
4-одна помовинка 4,вторая 3
5-одна половинка 5,вторая 1
6-одна половинка 1,вторая 4
7-одна половинка 3,вторая 5
8-одна половинка 2,вторая 4

первая цифра-номер матрёшки,вторые цифры -номера цветов карандашей

0 0

4 года назад