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...... Как исправить и описание. Программа Паскаль.
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...... Как исправить и описание. Программа Паскаль.
More Questions From This User See All
Answers & Comments
Ответ:
поставить пробел между div и 100?
Объяснение:
Не шарю в Паскале, но между ними нет пробела, в то время как у остальных есть