Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Андрей Таргет
3 года назад
8
Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию:
сумма значений цифр десятичной записи числа равно 10.
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
КсюМ
3 года назад
0
0
Var
A,S,k:longint;
Begin
k:=0;
Read(A);
While A<>0 do
Begin
S:=0;
A:=Abs(A);
While A > 0 do
Begin
S:=S+A mod 10;
A:=A div 10;
End;
if S=10 then k:=k+1;
Read(A);
End;
WriteLn('Искомое количество: ',k);
End.
Отправить
Читайте также
Хеллпппп миииии племени нааау 3 задание
phelo
Не будь авк будут ответы быстрее идти это мой совет
0
0
3 года назад
Как в поисковых машинах осуществить поиск по точной фразе?
Офтальмолог Макси... [408]
Заключить фразу в кавычки.
0
0
3 года назад
трех вазах стоят розы, пионы и ирисы. Каждый день хозяйка берет один цветок и ставит обратно. Сообщение "Извлечена роза" несет
EvaEvaEva [1]
7 цвитов будит у хазяйки
0
0
2 года назад
Как называется свойство алгоритма, означающее, что данный алгоритм применим к решению целого класса задач? Результативность Масс
violet-alla [86]
такое свойство алгоритма называется массовость
0
0
3 года назад
Доступ к файлу user.doc, находящемуся на сервере school.ru, осуществляется по протоколу ftp. В таблице фрагменты адреса файла за
Евген Евген [125]
2,6,4,7,1,3,5 если я правильно понял, то такая последлвательнсоть
0
0
2 года назад
Смотрите также:
написать алгоритм и программу в паскале дана окружность радиуса R с центром в начале координат и точка А(ха, уа). Определить как
6
·
1 ответ
Помогите. Турбо Паскаль Вывести таблицу сочетаний цветов фона и текста (textcolor и textbackgroundcolor) Красный текст красный ф
7
·
1 ответ
Я учусь в 8 ом классе и моя школа учится по триместрам. Скажите если у меня не оттистация по информатике чем мне это грозит, и ч
6
·
2 ответа
Возможности настройки свойств панели задач
6
·
1 ответ
Народ очень срочно надо!Напишите программу на языке Pascal. Дано натуральное число n. Получить число k из числа n, поменяв поряд
5
·
1 ответ
Помогите пожалуйста!Нужно очень!
5
·
1 ответ
Сроооооооооооочноооооооооо... Объясните как это решить???????
5
·
1 ответ
Ребят очень нужно решить задачу.ДАЮ 75 БАЛЛОВ + ПЕРВОМУ КТО ОТВЕТИТ ЛУЧШИЙ ЗАСЧИТАЮ. ПИШИТЕ НА PASCAL ABC!!!! В компьютер поступ
12
·
1 ответ
Решите пожалуйста здания в таблице Excel..
12
·
1 ответ
Используя цикл с предусловием выполните следующее задание: дано натуральное число. Определите сумму его цифр
11
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!