Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
настя7500
25.11.2021 13:49 •
Информатика
Склавиатуры вводится целое число n,найти произведение всех цифр этого числа,а также количество цифр больше 6
Показать ответ
Ответ:
105184
15.05.2020 16:19
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гном171
26.04.2023 19:03
Информатика. Тест , выполнить задание...
polina2004121
01.12.2021 04:42
на вход схемы подаются логические переменные (x1..x8) над которыми производится операции:и(and);или (or);не (not);или-не (nor);и не (nand);исключающие или (xor); эквиваленция/ тождество...
Milka0102
15.10.2022 07:58
1. Пользователь вводит с клавиатуры число в диапазоне от 1 до 100. Если число кратно 3 (делится на 3 без остатка) нужно вывести слово Fizz. Если число кратно 5 нужно вывести слово...
mamrykovaksun
21.03.2021 03:09
Назовём пару чисел зеркальной, если при записи любого из чисел справа налево получается его пара. Пример зеркальной пары чисел: 185 и 581. На любом известном Вам языке программирования...
LeveL14
01.03.2021 04:16
Напишите блок-схему алгоритма программы, которая запрашивает с клавиатуры два произвольных числа x и y. если разность x и y больше 0, то вычисляет и выводит на экран сумму всех целых...
89300044
24.03.2022 04:46
Петя и коля играют в следующую игру петя задумывает правило преобразования текстовой информации.коля может предлагать любые тексты и узнавать результаты преобразования какое правило...
Keeping
24.03.2022 04:46
Составить программы для решения 1.найти катет прямоугольного треугольника, если известна гипотенуза и прилежащий к искомому катету угол. величину вводить в градусах. ответ дать с...
34Настюша1111
24.03.2022 04:46
Определите полный набор исходных данных для решения следующих : приготовление обеда вычисление стоимости покупок в магазине приготовление салата по рецепту...
DarinaKimovsk
01.07.2022 00:09
Переставить в исходном четырёхзначном числе первые две цифры и последние две цифры местами.например: входное 1234, выходное 3412. (что тут делать)?...
trekstreks919ozyvc1
03.02.2023 04:02
Сформулируйте основные преимущества, которые дает обработка информации с электронных таблиц по сравнению с обработкой вручную. !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.