Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
SHEVENIST
29.03.2022 23:36 •
Информатика
Вводится двухзначное число,найти произведение цифр этого числа
Ответ:
o123456789
05.10.2020 07:59
//прога на Pascal`e
var
n, sum: int64;
begin
write ('Введите число n: ');
readln (n);
n:=abs (n);
sum:=1;
while n>0 do
begin
sum:=sum*(n mod 10);
n:=n div 10;
end;
write ('Произведение цифр числа n: ', sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
АтинаАссорти
11.10.2022 14:15
Разработка приложений с использованием одномерных массивов» заменить минимальный положительный элемент массива последним элементом в программе visual studio c#...
innaalekseenko1
11.10.2022 14:15
Добрый братику и встряла, широко известная видимо..может кто решал его в эл. в некотором году (назовем его условно первым) на участке в 100 гектар средняя урожайность ячменя составила...
detsadraduga10
11.10.2022 14:15
Разработка приложений с циклическими алгоритмами одна штука некоторого товара стоит 20,4 руб. составить программу для построения таблицы стоимости 2, 3, …, 20 штук этого товара....
12artem2000
20.08.2020 13:39
Решить в excel (основная проблема в оформлении). на грузовике должны перевезти 16 станков (вес одного станка 850 кг) и 25 промышленных электромоторов (вес одного мотора 410 кг)....
onpapion
21.07.2021 17:05
Составить программы: 1. вычисления суммы цифр трехзначного числа (используя mod и div) 2. определения наибольшего из трёх чисел a,b,c 3. определения является ли счастливым билет...
sanjabr82oymx7f
17.05.2023 16:53
Нужно с коментариями дана строка символов ( 2-3 строки ) в файле f1. составить функцию , формирующую новую строку : заменить все повторные вхождения символа пробел одним символом...
lenasinyikovich
17.05.2023 16:53
Нужна )) если не сложно с коментариями описать функцию transform(n), которая припишет к числу n по единичке в начале и в конце. обратиться к функции со значениями 23, 234, 2345....
seregalock
15.09.2020 20:28
Даны два интервала; (0; 1) и (5; 10), из первого выбирается число , из второго выбирается число с. Событие состоит в следующем: а) число а меньше числа с...
Andriuy2003
15.09.2020 20:28
Петя перемножил два отрицательных числа и Событие состоит в следующем: а) ab - положительное числе, б) ab - отрицательное число...
64даня1166
15.09.2020 20:28
Петя задумал натуральное число. Событие состоит в следующем: а) задумано простое число; б) задумано составное число; в) задумано число, кратное 2;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
n, sum: int64;
begin
write ('Введите число n: ');
readln (n);
n:=abs (n);
sum:=1;
while n>0 do
begin
sum:=sum*(n mod 10);
n:=n div 10;
end;
write ('Произведение цифр числа n: ', sum);
end.