Question

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...... Как исправить и описание. Программа Паскаль.

Answer 1

Ответ:

поставить пробел между div и 100?

Объяснение:

Не шарю в Паскале, но между ними нет пробела, в то время как у остальных есть