Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mama791
09.01.2020 08:25 •
Информатика
Pascal, цикл while ввести целое число и определить, верно ли, что в нем ровно 3 цифры. пример: введите число: 123: да
Показать ответ
Ответ:
Dimoooon12321
06.10.2020 02:36
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
dana112414
08.02.2020 11:31
На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3...
nikitos3567
18.05.2020 01:17
Составьте таблицу истинности для выражения: ((p*q) - (p - q)) v p (4 строки и 6 столбцов)...
airflash1372
04.07.2020 04:56
Решить практическую работу тема линейные и разветвляющиеся алгоритмы составить алгоритм для нахождения расстояния между двумя , идущими навстречу друг другу, начавшими...
ангел769
03.03.2022 13:11
Какое устройство нарушает признак, по которому подобраны все остальные устройства (для работы с графическим редактором) из приводимого ниже списка: а) сканер; б)...
zelenskiy10000
07.01.2022 21:52
Государственная программа рф информационное общество (2011-2020 г.г.) , утвержденная распоряжением рф от 20.10.2010 № 1815-р легла в основу программы: 1) электронного...
anna4513
29.04.2021 22:46
Отражают количественную оценку степени достижения системой поставленной цели показатели: 1) отчетности 2) прогнозирования 3) планирования 4) эффективности...
anait87
05.10.2022 10:15
Сообщение состоит только из латинских букв a, b, e и g. буква a встречается 75 раз, буква b - 35 раз, буква e - 99 раз и буква g - 20 раз. какой букве нужно присвоить...
stefanikolaeva
18.10.2021 03:10
Как называется восстановление исходного сообщения из кода?...
11UmNiK111
18.05.2022 21:15
Каким может быть доступ к ресурсам компьютерных сетей при классификации по праву доступа к ресурсам?...
Jiter
14.03.2021 17:23
Дана кодовая таблица: к - 00, л - 01, м - 10, о - 11 закодируйте с этого кода слово молоко. введите полученное сообщение без пробелов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.