Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Виктория2478
06.11.2020 08:50 •
Информатика
Решите по информатике , по теме "див и мод" дано четырёхзначное число х.найти произведение. надо ! ! ! ! ! !
Показать ответ
Ответ:
qwertyzored
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 оценок)
Популярные вопросы: Информатика
ueds23
11.03.2020 12:19
андрей может вводить текстовую информацию со скоростью 142 символов в минуту выясни сколько времени ему понадобится для токо чтобы ввести в память компьютера напечатонный тескт...
perelyana9
03.11.2021 11:30
Какие функции электронной почты не под силу обычной почте?...
NanaxD
01.08.2021 09:54
У исполнителя Альфа две команды которым присвоены номера 1. Умножь на 2 2. вычти b b - неизвестное натуральное число. Первая из них увеличивает число в 2 раза, вторая - уменьшает...
rufergem
31.10.2020 13:27
Написать программы вычисления значений...
irina699
23.10.2022 00:28
Составь олгаритм чтобы поменять местами спортивные принадлежности расположи теннисную ракету в первый мяч во второй коньки в третьей ячейке в каждом ячейке можно разместить только...
awdrg12345
19.10.2021 21:15
Скласти блок-схему. дано масива(4х5).обчислити найменше значення елемента масиву...
dan355
30.03.2023 21:01
Нарисуйте блок схему и составьте алгоритм линейный к номер 1...
Priveee
04.07.2022 20:57
На этих трех задачах только дано, без решения...
18000000
31.12.2020 19:45
Какой ответ будет выведен на экран в результате выполнения следующей пргограммы.var A: integer;beginA := 5;write(A 0);end....
wehter83
12.07.2020 01:35
Есть ли в жизни человека место одиночеству? нужны аргументы для сочинения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.