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

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

Пример:

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

Question

Информатика

Мартиниан

15 сентября, 09:34

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

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

Пример:

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

+5

Ответы (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:да