Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
rotaru1930
29.03.2020 16:40 •
Информатика
Дано натуральное число n найдите сумму его чисел и произведение. в pascalabc, и через команду while
Показать ответ
Ответ:
dsklim2oxkfup
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 оценок)
Популярные вопросы: Информатика
ария27
23.02.2022 00:07
Файл размером 1440 килобайт передается через некоторое соединение со скоростью 480 килобит в секунду определите размер файла в килобайтах который можно передать за такое же...
danilarostov2
21.12.2021 05:29
Доброго времени суток. имеется вот такой шифр, предположительно должно получиться слово или сочетание слов или высказать предположения/мысли. мне в голову приходит только rsa)...
znarineozszf8
06.08.2020 12:07
[1 5. Составьте перечень слов в рамках темы «Путешествие» (8-10 слов). К каждому слову подберите по 2-3 прилагательных...
Sergfijd
18.07.2022 13:50
(12 5/13+4)-9 9/13=7 7/13...
vovaste
09.07.2021 09:08
вот задача: Ты хочешь купить машину, она стоит 250000 грн. Твоя зарплата в месяц 9000грн. Сколько тебе нужно будет времени, чтоб насобирать нужную сумму?, С учётом того, что...
annatarasova1991
05.06.2021 12:17
Девочке мама выдала в понедельник карманные деньги на неделю, в воскресенье девочка положила в копилку 1- 5 часть выданных денег, что составило 100 рублей. сколько рублей карманных...
ГульшатГайипова2006
20.10.2021 17:14
Написати електроні формули йонів fe³+; al³ ; cl-...
sonyafeldman
13.07.2020 17:25
Кыз жыбек жырынын ышындегы жер су аттары?...
ДанилКаДми
14.07.2022 15:22
Сделайте 11 и 12 задание...
Kazybek2005
07.06.2021 11:59
Мәтінді тыңдай отырып түртіп алу әдісі арқылы мәтіндегі жалқы есімдердің санын анықтаңдар...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.