Var n,n1,n2,n3: integer; begin; readln (n); n1: =n - вопрос №1599085123110102 от mfaig 04.05.2021 06:49

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

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