Var n,n1,n2,n3: integer; begin; readln (n); n1: - вопрос №159818312311010 от wehhc 08.08.2022 00:36

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

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