Войти
Регистрация
Спроси ai-bota
rynnotynno
20.02.2021 16:52
А. составьте подпрограмму-функцию, которая по заданному натуральному числу n вычислит сумму его цифр. б. составьте алгоритм, подсчитывающий количество n-значных натуральных чисел, у каждого из которых сумма цифр равна заданному натуральному числу k.
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
scravtz
14.05.2022 07:27
E^-x-cosx+sin2xy в языке программирования С нужно вывести cos x и sin x...
sofaTV
23.10.2021 12:48
Пользователь указывает высоту и ширину бОльшего прямоугольника, а так же высоту и ширину меньшего прямоугольника.Нужно узнать сколько маленьких прямоугольников...
марлен223
10.05.2022 23:47
Как поменять код языка на английский в программе Кумир? Я весь код Паскаля учил на английском и даже практиковался в эффективности кода....
saralis
27.05.2021 23:18
нформатика 2 питання 1.За яким алгоритмом виконується побудова інформаційной моделі обєкта 2.які засоби можуть бути використані для подання інформаційних моделей...
varyuska
30.01.2020 04:15
Дано трехзначное число.в нем зачеркнули первую справа цифру и приписали ее слева.вывести полученное число....
ZVERO9S4R
11.04.2022 10:26
Вдвумерном пространстве заданы два вектора. вычислить векторное произведение векторов. вводится 4 координаты x1,y1,x2,y2, выводится векторный произведение p1*p2...
sidikreal
11.04.2022 10:26
Составить программу в которой записать в массив n номера положительных элементов массива (x1,)...
KeDres
11.04.2022 10:26
Составить программу, которая вводит с клавиатуры три различных целых числа, каждое из которых по абсолютной величине не превышает 100 (каждое число с новой строки),...
лера21091
11.04.2022 10:26
Написать программу в паскале к . даны три целых числа: a,b,c.проверить истинность высказывания: число b находится между числами a и c ....
angelinaignaty1
18.12.2021 07:21
Построить логические схемы. а) a v b & a(отрицательная) а= 0 в=0...
Ответ:
Alina2007203
12.07.2020 18:54
A.
Program enot;
Var a,c,sum: integer;
begin
read(a);
while a>0 do
begin
c:= a mod 10;
sum:=sum+c;
a:=a div 10;
end;
writeln(sum);
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота