logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
витльд
витльд
15.06.2022 19:18 •  Информатика

Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324

Показать ответ
Ответ:
Настя0857
Настя0857
16.08.2020 22:02
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,p):=(ReadInteger,1);
  while n>0 do (p,n):=(p*(n mod 10),n div 10);
  p.Println
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Ismashoma
Ismashoma
02.12.2021 16:33
Найти информацию про архивирование и разархивирования в чём разница...
tanya3104
tanya3104
30.05.2021 03:09
Помагите только правельно 2 верных вопросов...
abarzenkov
abarzenkov
01.10.2020 17:10
1. Що таке блог? 2. Які служби дають змогу вести безкоштовний блог? 3. Правила, що не можна робити при веденні журналу блогу? 4. Підготуйте фотографії та інформацію якими ви б...
mariapodgornova
mariapodgornova
05.02.2021 11:07
До также одно коливання​...
EkaterinaZeyb
EkaterinaZeyb
02.01.2023 09:31
11. Установите соответствие. Таблица 3.3Инструкция присваивания A *Деление B !=Умножение C. ==Равенство D =Неравенство E =Больше или равн F /​...
tkacenkoaleksandra
tkacenkoaleksandra
02.02.2021 22:08
40 солдат пошли к реке, по которой на лодке катаются двое мальчиков. как солдатам переправиться на другой берег, если лодка вмещает только одного солдата либо двух мальчиков,...
OskarWild
OskarWild
31.10.2021 03:36
Как просклонять или заменить другим словом напрашиваюсь ?...
trunczova84
trunczova84
31.10.2021 03:36
Впервый день израсходовали 7/20 т топлива , а во второй на 5/20 т больше ,чем в первый .сколько всего топлива израсходовали за два дня...
JONNYDAPP
JONNYDAPP
31.10.2021 03:36
Определите синтаксическую роль числительных. на столе лежат три тетради....
Andriy1208
Andriy1208
31.10.2021 03:36
Из точки вне окружности проведены к ней две касательные, угол между которыми 60 градусов. если расстояние между точками касания равно , то радиус окружности равен?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота