Размещено 4 года назад по предмету
Информатика
от ulyankaantonova2004
НУЖНО ПЕРЕВЕСТИ НА С++,
ПОЖАЛУЙСТА
Var
n,i:integer;
Begin
Write(n = );Read(n);
i:=0;
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write(Верно)
else Write(Не верно)
End.