Var n,n1,n2,n3: integer; begin; readln (n); n1: - вопрос №123110101598583 от lolipop1720 19.06.2021 11:39

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

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