Вопрос по информатике:

var n,n1,n2,n3:integer;
begin;
readln (n);
n1:=n mod 10;
n:=n div 10;
n2:=n mod 10;
n3:=n div100
if (n1=n2) and (n2=n3) then writeln ('Y') else writeln ('N');
end.


Ошибка в n3...... Как исправить и описание. Программа Паскаль.

Ответ:

N: integer; {количество чисел}

    a: integer; {очередное число}

    n10, n5, n2: integer;

    k10: integer; {количество требуемых пар}

    i: integer;

begin

    readln(N);

    n10:=0; n5:=0; n2:=0;

    for i:=1 to N do begin

        readln(a);

        if a mod 10 = 0 then

            n10 := n10 + 1

       else if a mod 5 = 0 then

            n5 := n5 + 1

        else if a mod 2 = 0 then

            n2 := n2 + 1;

   end;

   k10 := n10*(n10-1) div 2 + n10*(N-n10) + n2*n5;

   writeln(k10)

end.

Возможно также «лобовое» решение: запишем все исходные числа в массив, переберём все возможные пары и подсчитаем количество подходящих. Такое решение не является эффективным ни по памяти (требуемая память зависит от размера исходных данных), ни по времени (количество возможных пар, а значит, количество действий и время счёта с ростом количества исходных элементов растёт квадратично). Такая программа оценивается не выше двух баллов.

Ниже приведена реализующая описанный выше алгоритм программа на языке Паскаль (использована версия PascalABC)

Объяснение: