Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
murzyatyan
07.09.2022 10:25 •
Информатика
Пусть в переменной b находится 4-х значение число. Напишите команду нахождения произведения средних цифр этого числа.
Ответ:
hovrashok
19.11.2020 04:22
var b,p,a:integer;
begin
readln(b);
p:=1;
b:=b div 10;
a:=b mod 10;
p:=p*a;
b:=b div 10;
a:=b mod 10;
p:=p*a;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
grechko8885
09.10.2020 15:12
30 шифр цезаря сообщение «доброго дня» закодируйте за шифром цезаря со сдвигом на 2 буквы справа. выбери верный вариант....
BobrLite
09.10.2020 15:12
Сорок ! шифр цезаря используя «шифр полибия» было получено следующее сообщение 62 43 51 34 31 11 33 33 65. декодируйте сообщение...
dashamaer1
13.07.2021 16:16
расположите в порядке возростания. 1)1024байт,1025 байт,1048576бай,1 гб. 2)1тбайт,2048мб,258байт,10бит. 3)10мбит,250мбайт25гбайт,256тб. 4)1,5гбайт,1025мбайт,1кбайт,100байт...
ппппппп25
23.01.2020 11:39
Драствути!А у вас есть пирожки с мяясом?...
surgut186rus
03.04.2022 09:46
Вчём минусы антарктиды (минимум 10)...
янубтытруп
03.04.2022 09:46
Радиус земли равен 6371 км. радиус планеты марс состовляет 0,53 радиуса земли. запишите приближенное значения радиуса марса. ответ округлите до десятых...
denik228
03.04.2022 09:46
Как перевести с life wouldn t be the same...
Nemsix
03.04.2022 09:46
Написать сочинение рассуждение про любого героя в романе евгений онегин . 30 ....
nargizdjgalova
03.04.2022 09:46
Выражение у которого значение пятизначное число а)420 умножить на 200 b)420 умножить на 2000 с)42 умножить на 200 d)4200 умножить на 200...
сердянечок
03.04.2022 09:46
Чтобы правильно написать парным слогласныи в конце слова,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var b,p,a:integer;
begin
readln(b);
p:=1;
b:=b div 10;
a:=b mod 10;
p:=p*a;
b:=b div 10;
a:=b mod 10;
p:=p*a;
writeln(p);
end.