Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sh0d1
25.07.2020 19:20 •
Информатика
Дано натуральное число n найдите сумму его чисел и произведение. в pascalabc, и через команду while
Показать ответ
Ответ:
Настюля151
16.08.2020 12:19
Program asdw;
Uses crt;
Var x,s,s1:integer;
begin
read (x);
s1:=1;
s:=1;
while x>0 do
begin
s1:=s1*x mod 10;
s:=s+x mod 10;
x:=x div 10;
end;
writeln (s);
writeln (s1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
yana221002
09.07.2020 05:16
Ураховуючи що кожний символ кодується одним байтом укажіть інформаційний обсяг такого речення: ой, яка чудова українська мова! скільки має біти...
Temirlan0958
13.02.2021 18:04
Укажите какое из указанных ниже имен файлов удовлетворяет маске ? ese*ie.? t* и если можно схему...
Свєтлана1
18.11.2022 02:11
Среда программирования python. какое число будет выведено на экран в результате выполнения этого цикла? i=3 print( 9 ,end= ) while i 6: print(i,end= ) i+=1 a)( )9 3 4 5 b)( ) 9123...
toklike
05.08.2020 12:56
Маша, лена, оля и валя - замечательные девочки. каждая из них играет на каком-нибудь музыкальном инструменте и говорит на одном из иностранных языков, инструменты и языки у них разные....
ZhoniLegend
07.01.2022 05:28
1. Как следующие факторы могут помешать центральным банкам достигать целевых значений инфляции и снижать инфляционные ожидания в условиях политики инфляционного таргетирования а)...
kcufka123456789
24.04.2020 03:05
Напишите программу python...
dinara951211
02.03.2020 09:08
с английским . Фото с заданием выше....
danilworld
11.03.2020 17:42
Вірш -оповідання ,,Якби не було природи,то поети її вигадали би ,,...
denis2565
11.03.2020 17:42
3. Что заметил сын и что он понял в отношении отца? Приведите дополнительные факты из главы «Ключик». 4. Прочитайте выразительно концовку этой главы. Согласны вы с Николенькой? 5....
ryckovan3
24.02.2020 22:25
Перепишіть текст, додавши на місці пропусків однорідні члени. Виконайте завдання З наближенням канікул ми починаємо замислювати- ся над тим, як би їх провести. Хочеться забути про...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses crt;
Var x,s,s1:integer;
begin
read (x);
s1:=1;
s:=1;
while x>0 do
begin
s1:=s1*x mod 10;
s:=s+x mod 10;
x:=x div 10;
end;
writeln (s);
writeln (s1);
end.