С клавиатуры вводится число. Верно ли что все его цифры единицы. Помогите пж

Question

С клавиатуры вводится число. Верно ли что все его цифры единицы. Помогите пж

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var x:=abs(ReadInteger()).ToString().Select(x->x.ToDigit());
write( x.Where(x->x=1).Count()=x.Count());
end.

Answer 2

Var
  n:integer;

begin
  Write('Введите проверяемое число: '); Read(n);
  n:=Abs(n); { от ввода отрицательных }
  while n>0 do begin
    if n mod 10 <> 1 then begin
      Writeln('Не все цифры - единицы');
      exit
      end;
    n:=n div 10
    end;
  Writeln('Да, все цифры числа - единицы')
end.

Comments

Что ввести в окно "ввода данных"

---

То число, которое проверяете ))))

---

Добавил в подсказ программу, раз уж неясно)))

---

ох... подсказ в программу

---

спс)))