Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Bonya97
08.05.2021 09:43 •
Информатика
Pascal, цикл while ввести целое число и определить, верно ли, что в нем ровно 3 цифры. пример: введите число: 123: да
Показать ответ
Ответ:
Денис121009
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 оценок)
Популярные вопросы: Информатика
oleg04021
08.05.2021 15:51
Как записывается в двоичной системе счисления число 15?...
Xafe456
08.05.2021 15:51
Какие свойства объекта - оригинала отражаются в модели? пример. что ты знаешь про алгоритм? расскажи на своем примере. ! корону (самый лучший ответ)!...
narutoudzumaki228
08.05.2021 15:51
Какое десятичное число в двоичной системе счисления записывается как 1101?...
Max1643
06.06.2023 19:16
ИНФОРМАТИКА 100) Определите, при каком наибольшем введённом значении переменной s программа выведет число меньше 1000. s = int(input()) n = 0 while 400 s*s: s =...
Papyas3
05.11.2021 07:20
1. Какие элементы базы данных имеются в Access? 2. Как осуществляется просмотр и изменение данных в таблице? 3. Перечислите основные функции и режимы ACCESS. 4....
katesmile7
11.05.2023 02:31
Нужна в решении цепочки)...
22391
11.05.2023 02:31
Задание 1: Списать предложения. Подчеркнуть грамматическую основу. Составить схемы СПП. (1) Ежедневно весь мир пьет чай, не задумываясь, что когда-то он был одним...
KristinaE16
03.04.2023 23:40
В прямоугольнике ширина относится к длине как 3:5. Длина прямоугольника на 6 см больше ширины. Найдите периметр прямоугольника. Заранее...
nikusakunova
03.04.2023 23:40
Два автомобиля движутся по прямолинейному участку шоссе друг за другом с одинаковой постоянной скоростью. Движется ли шофер первого автомобиля относительно шофера...
skolzkov200441
03.04.2023 23:40
Что делать если я обидел любимого человека...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.