Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hfhfhfhffhhfdkdd
05.09.2020 12:08 •
Информатика
Написать на языке паскаль: умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.
Показать ответ
Ответ:
N4kes
19.06.2020 14:22
Fl := false;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;
0,0
(0 оценок)
Популярные вопросы: Информатика
alisa2847274
08.02.2020 08:51
Графикалык редакторда салынган ...
aleksandragapov
23.05.2021 08:18
6. укажіть кілька найпоширеніших операцій, які можна використовувати в середовищі графічного редактора. а) виділення області зображення для редагування б) малювання ліній за пензлів...
5five3353
27.01.2021 13:43
Надо! напишите процедуру,которая вычисляет площадь произвольного прямоугольника с длинами сторон a и b,где a и b€r....
1Z1D
17.08.2021 20:35
Установить соответствие между значками и их значениями...
Лизотикенотик
20.10.2020 08:20
Что выйдет на экране в результате выполнения a=( информация ,1,19,29) print(a)...
7909nastya
13.12.2022 00:21
Художні засоби твору Ляльковий дім...
KinezyOldside
06.06.2022 20:03
Придумать и решить задачу на тему дерево решений ,...
AMeleschckina2
12.06.2022 05:38
В равнобедренном треугольнике NLP проведена биссектриса PM угла P у основания NP, ∡ PML = 96°. Определи величины углов данного треугольника (если это необходимо, промежуточные...
rembo15
06.07.2020 18:23
Предложение по схеме [...], (що...), а[...],[щоб...)....
МихаилКрыл
29.09.2021 05:58
Изотоп азота содержит 7 электронов и 8 нейтронов сколько протонов находиться в нутри ядра...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;