Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
luszdncsjmn
28.08.2021 20:04 •
Информатика
Составить программу, которая запрашивает четырехзначное число, и находит произведение цифр этого числа
Показать ответ
Ответ:
evagir
06.07.2020 06:19
Program i7;
var
i,n,k: integer;
begin
writeln('vvedi 4etireh znachoe chislo');
readln(n);
k:=1;
while n>0 do
begin
k:=k*n mod 10;
n:=n div 10;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maksimmolotov2
07.06.2021 06:25
Написать программу которая принимает 3 числа(2 целых чисел x,y и одно действительное число z). Вычислить следушюю формулу и сравнить ее результат с z.〖(〖(x+y)〗^2/(〖(√(2&x^2+y^2...
kamillionela
05.09.2021 04:50
Поясніть, що об єднує всі наведені в презентації технології...
Kerbenbaeva2003
30.09.2021 13:23
решить задачу python для школы, желательно с объяснением Рассматривается множество целых чисел, принадлежащих числовому отрезку [3361; 9205], которые делятся на 4 или...
vikaSnal87
26.11.2022 14:38
Спо информатике никак не могу ее ! (сколько килобайт ссоставит сообщение из 384 символов 16-символьного алфавита? )...
artem877
26.11.2022 14:38
Составить программу pascal: вводят число от 1-12 -номер если число входит в интервал от 1 до 12, то высвечивается месяц, а если нет то выходит слово !...
Webymnyaha
31.12.2022 03:28
Одномерные массивы в c# решить...
mihatyt100
08.11.2021 12:11
6. дословно в произведении одного автора высказывание другого автора.а) цитата.в) стихотворение.c) отрывок.d) ссылка.е) предложение.результат интеллектуальной деятельности...
ЕлизабетклассD
06.01.2021 13:50
Напишите на языке турбо паскаль...
Rosa02
25.06.2021 14:37
1. Назва якого сервісу Інтернету пішла від назви давньоримської площі?...
oliver6no
27.08.2021 20:07
Вспомните сказку А С Пушкина о царе Салтане назовите источник информации ее приемник и информационный канал.кто в данной ситуации создавал помехи для передачи информации...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i,n,k: integer;
begin
writeln('vvedi 4etireh znachoe chislo');
readln(n);
k:=1;
while n>0 do
begin
k:=k*n mod 10;
n:=n div 10;
end;
writeln(k);
end.