Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Настюшка12305ш384
13.07.2020 14:22 •
Информатика
Решите по информатике , по теме "див и мод" дано четырёхзначное число х.найти произведение. надо ! ! ! ! ! !
Показать ответ
Ответ:
annshik
19.06.2020 19:54
Program pr;
uses crt;
Var x, x1, x2, x3, x4, p:integer;
Begin
readln(x);
x1:=x div 1000;
x2:=(x div 100) mod 10;
x3:=(x mod 100) div 10;
x4:=x mod 10;
p:=x1*x2*x3*x4;
Writeln(p);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zlatoust99
23.06.2022 19:23
Заполните таблицу: укажите научные названия, слова логические связки, все возможные обозначения, примеры с использованием любых обозначений 1)Название 2) Русское название ( отрицание,...
mak57
19.03.2023 11:07
Логические основы компьютеров 1) Построить таблицу истинности для заданного логического выражения (можно сначала упростить).2) Записать и упростить выражение для объединения областей...
Ga1axI
06.07.2021 21:13
Задание 3:Определи символы, соответствующие десятичному коду, и расшифруй данные слова. а) 087 111 114 100; б) 068 079 083; в) 080 097 105 110 116 098 114 117 115 104....
vevgrafov
27.12.2021 19:10
Установи соответствие с видом информации:мелодия...
пиrotехник
19.08.2022 02:51
TEKCT IAAAHVI к каким заболевания может привести интернет зависимость?Выберите да правильный ответаВерных ответов: : 2простудные заболеванияаллергияпроцессорнарушение зренияПроверить...
MiyaGi123
14.05.2022 03:08
Салыстырмалы сілтеме қалай жазылады?...
alikakusai35
27.04.2023 20:58
• Беспроводная сеть - это … • Основные топологии беспроводных сетей делятся на …• Преимуществами беспроводной сети являются …• Недостатки беспроводной сети – это …• Скорость передачи...
Катя111111177796
10.05.2022 07:22
Упростите логическое выражение....
vika14112006
29.07.2022 12:46
3D редакторы туралы жалпы түсінік2.3D редакторы құралдары...
Maro8821
15.11.2022 06:54
с информатикой! f:=56; c:=67.56; Описать переменные....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
Var x, x1, x2, x3, x4, p:integer;
Begin
readln(x);
x1:=x div 1000;
x2:=(x div 100) mod 10;
x3:=(x mod 100) div 10;
x4:=x mod 10;
p:=x1*x2*x3*x4;
Writeln(p);
readln;
end.