ответ:
turbo pascal
объяснение,формула,которую надо забить
var n,n1,n2,n3: integer;
begin;
readln(n);
n1: =n mod 10;
n: =n div 10;
n2: =n mod 10;
n3: =n mod 10
if n1=n2=n3 then writeln('y') else writeln('n');
end.
если ,отметь как лучший ответ ; )
ответ:
turbo pascal
объяснение,формула,которую надо забить
var n,n1,n2,n3: integer;
begin;
readln(n);
n1: =n mod 10;
n: =n div 10;
n2: =n mod 10;
n3: =n mod 10
if n1=n2=n3 then writeln('y') else writeln('n');
end.
если ,отметь как лучший ответ ; )