Ввести целое число и найти, верно ли, что в нём ровно

Ввести целое число и определить, правильно ли, что в нём ровно 3 числа. Необходимо с подмогою цикла "while"

Пример:

Введите число:
123
Да

Пример:

Введите число:
1234
Нет.

Задать свой вопрос
1 ответ
Var a, b: integer;
begin
readln (a);
b := 0;
while a gt; 0 do begin
  b := b + 1;
  a := a div 10
end;
if (b = 3) then
  writeln ('Да')
else
  writeln ('Нет')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт