Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
tupykomiks
22.03.2021 14:11 •
Информатика
Написать на языке паскаль: умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.
Показать ответ
Ответ:
Aigerim735
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 оценок)
Популярные вопросы: Информатика
Anna888Anna1
01.06.2021 13:08
Адрес ячейки, находящейся в первой строке и первом столбце электронной таблицы, записывается как A1. А как записать адрес ячейки, которая находится в 44 строке и 44 столбце...
AAMB
03.01.2022 16:10
2. Що відповідає кожній із наведених математичних моделей — об єкт, процес чи явище? Назви цей об єкт, процес чи явище.a) S = utb) НОc) CaO+H2O=Ca(OH),...
gopas11123
29.01.2022 12:16
4. Як ти вважаєш, для вирішення яких із перелічених завдань необхідне моделювання?а) визначення оптимального маршруту подорожіb) виробництво автомобіляc) розв язання геометричної...
EgorT222
16.08.2020 04:38
НАПИСАТЬ НА HTML ФОТКА НИЖЕ...
ЖенушкаV
14.07.2020 12:20
никак не могу сделать. Переделывала 3 раза, то пустой вывод, то неверный синтаксис...
kirilladinov
15.01.2020 20:31
может это я так туплю? IT-программирование. Нужно установить программное обеспечение для своего пк Chocolatey. Для этого нужно скопировать его ссылку и вставить либо (два...
Vitaminka123456789
15.01.2020 20:31
2. Сочетательный (ассоциативный) закон: для логического умножения: (A & B) & C - A & (B & C); для логического сложения: (A v B) C = A (B v C)....
Relig1d
02.05.2023 19:38
В кодировке UTF-32 каждый символ кодируется 32 битами. Коля написал текст (в нём нет лишних пробелов): «Эри, Айыр, Гурон, Восток, Онтарио, Виннипег —...
Даша6741
26.05.2023 09:14
Запишите в поле ввода маску сети, в которой может быть до 2046 компьютеров....
Sherstev
20.01.2023 22:28
Установите соответствие между компьютерными и аналогичными им Не компьютерными объектами Имя файла. Библиотека Файл. Шкаф Папка Полка Диск. Книга Вложенная папка Название...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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;