Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.

Пример:

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

Question

Информатика

Танюся

27 июля, 05:12

Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.

Пример:

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

+4

Ответы (1)

Знаете ответ на вопрос?

Виолетта · Answer 1

Begin

var c : = 0;

var x : = readinteger ('Введите число:') ;

while x > 0 do begin

x : = x div 10;

c : = c + 1;

end;

if (c = 3) then write ('Да')

else write ('Нет') ;

end.

Задача Pascal, цикл WhileВвести целое число и определить, верно ли, что в нем ровно 3 цифры.Пример:Введите число: 123:да

Задача Pascal, цикл While

Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.

Пример:

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