Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sergeevan73
03.06.2020 09:16 •
Информатика
Pascal, цикл while ввести целое число и определить, верно ли, что в нем ровно 3 цифры. пример: введите число: 123: да
Показать ответ
Ответ:
Анастасия10998
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 оценок)
Популярные вопросы: Информатика
4245788
21.08.2020 20:33
Напишите булево уравнение в формах суммы продукта и продукта суммы для следующих таблиц истинности....
cucuruza5
23.04.2022 17:01
Отрывок из учебника История СССР занимает 2 страницы по 38 строк. В каждой строке 50 знаков. Информационный объём при сохранении на компьютере в 1982 году составил 30 400 бит....
Синта
19.04.2020 08:12
Запиши определения данных слов Браузер Пароль...
alapova1
04.12.2021 16:59
Составить базу данных, состоящую из 2-х таблиц: таблица 1: страна (название, столица, название материка, на котором расположена страна). таблица 2: сведения (название, количества...
Миша20072007
04.12.2021 16:59
Написать программу вычисления выражения в комплексной форме на языке си мой пример (ba*2*a^2*b)*(a*b-3*a)^2+4*a*b а=1-2j b=1+3j...
romatkachuk19
30.09.2021 11:26
надо желательно с объяснением...
Pygacev1959
28.06.2021 13:29
У зошит написати процедуру, у якій можна обчислити суму, різницю, добуток двох дійсних чисел залежно від обраної дії з випадаючого списку (КОМПОНЕНТИ: 2 ПОЛЯ, випадаючий список,...
ник5047
12.05.2023 22:46
информатика 7 класс, от...
VolandDrein
08.05.2023 03:42
информатика 7 класс, от...
kristina160225
27.09.2021 21:46
Сообщение записаное буквами из 64 символьного алфавита содержит 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.