Var n,n1,n2,n3: integer; begin; readln (n); n1: =n - вопрос №123110102101598408 от котёнок130 18.08.2020 01:00

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

котёнок130 · Answer

поставить пробел между div и 100?Объяснение: Не шарю в Паскале, но между ними нет пробела, в то время как у остальных есть...

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