tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу к решению
Составить программу к решению : "дано число n. найти сумму и количество его цифр.
Ekaeterina44
1 28.05.2019 17:50
1
Ответы
kadieva1976
26.06.2020 11:26
Var a,b,k,c,d:integer;
begin
read(a); k:=0; c:=10;
while k<>0 do begin
b:=b + a mod c; k:=a div c; inc(d);
end;
write(b,d);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pchpppr
04.06.2019 13:00
Доброго всем вечера/дня! , с информатикой записать программу в дано вещественное число — цена 1 кг конфет. вывести стоимость 1, 2, …, 10 кг конфет. и если не сложно,то с подробными...
katiakosareva11
23.09.2019 16:04
На одной странице книги размещается 20 строк и на каждой строке от 35 до 45 символов. в книге 1234 страницы. определить: -сколько едениц информации содержит эта книга; -сколько...
alsu7691
01.12.2021 10:27
Решите IT алфавит по информатике !...
школота90
01.12.2021 10:31
Решите плз , сроки горят ....
SashaZaisnik1
26.02.2020 20:46
Даны 3 числа.Возвести в квадрат неотрицательные,а отрицательные заменить их модулем.8 класс.Паскаль.Заранее...
rahmatullinanvar
26.02.2020 20:46
Как полностью удалить этот пароль с ноутбука? Виндовс 10. (Если что пароль знаю)...
Кись123
26.02.2020 20:47
Задачу надо решить цикл с заданным условием окончания работы (цикл ДО) и цикл с заданным числом повторений (цикл ДЛЯ) ...
Malikru74
26.02.2020 20:48
РЕШИТЬ ПОДРОБНО МОЛЮ ДАЮ 20 б...
support38
26.02.2020 20:49
Значение f=7, на картинке ручкой указано...
НастяЛайк111
26.02.2020 20:51
Составить блок-схему и программу на языке паскаль алгоритма нахождения корней квадратного уравнения ах²+bx+c=0 *предполагается, что для заданных значений a,b,c допустимы комплексные...
Популярные вопросы
11.12. Найдите значение выражения: 1) 0,7ab - 49 +а - 1,2ab + 47 при а =2/3;b=9/162)...
2
A.Жаратылыстану ғылымдарын ата-b.Олар нені зерттейді?...
1
Task 3 Choose the correct item: so, such. 14 James has …….. much money that...
3
8-сынып СӨЙЛЕМ МҮШЕСІНЕ ТАЛДАП БЕРІҢДЕРШІ...
1
Қазақ әдебиет бжб 1 тоқсан 6 сынып көмектесіп жіберіңдерш...
1
Гулять в парке с весёлыми друзьями прыгнуть высоко зависемое слово части речи...
1
90. Сравните предложения. Укажите, в каких из них порядок слов прямой, а в каких...
2
5сынып 1 токсан БЖБ аралык бакылау комектесемыздерма...
2
-5,-3 сандарына он санын қосып мәнін тап?...
3
%. Скільки держав брало участь у Перший світовій війні? Тести «Перша світова...
3
begin
read(a); k:=0; c:=10;
while k<>0 do begin
b:=b + a mod c; k:=a div c; inc(d);
end;
write(b,d);
end.