Вопрос школьника по предмету Информатика
Задача Pascal, цикл While
Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.
Пример:
Введите число:123:да
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей