Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
дима2903
05.10.2021 10:15 •
Информатика
Требуется найти сумму цифр числа( )²,где 0< n< 19000. составьте программу.
Показать ответ
Ответ:
ЖекЖек
12.07.2020 10:53
Стал ещё сильнее уважать свой ноут:)
uses
System.Numerics;
var
k, m: BigInteger;
n, j: word;
begin
readln(n);
for j := 1 to n do
k := k * 10 + 5;
k := k * k;
writeln(n, ' ', k);
repeat
m := m + (k mod 10);
k := k div 10;
until (BigInteger.Parse(k.toString()).isZero); //нет, isZero просто так не принимает IDE
k := 0;
writeln('Sum: ', m);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikitame6
21.07.2020 00:22
Составьте программу вычисления в массиве b максимального среди отрицательных элементов и его номера....
viktoria20000000
07.03.2022 14:02
Используя текст в качестве вводных данных, найдите и выведите в результат самое длинное слово. Пример вводных данныхthis is an awesome textПример результатаawesome...
герман2031
29.07.2022 21:53
Напишите программу на языке Scratch который кот проходит к точке 0,100 и потом обратно в точке помагитеее...
zarina11653
31.01.2023 20:03
Рассмотрите блок-схему и заполните трассировочную таблицу....
АминаАлханова
29.11.2022 05:58
Запишите формулу по правилам записи формул в электронной таблице |4Х-cos3£|...
podgornovakatu
12.01.2021 05:17
Разделите мелодию на такты, а затем перепишите их, заменяя вокальную группировку на инструментальную: В этом я вообще ничего не понимаю :(...
ULYA1111111
03.09.2021 23:42
Древесные растения семейства розоцветных а земляника б гравилат в черемуха г манжетка...
katushashamrova
17.06.2022 11:39
Кто основал город Таллин?...
Libert02
17.06.2022 11:39
Решите знание 2 по налогам...
Semen911
17.06.2022 11:39
Составить уравнения ОВР методом электронного баланса O2 + CO→CO2 CH4→C + H2 Fe2O3+ CO→FeO + CO2 Al + CuCl2→AlCl3 + Cu Ca + O2→CaO...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses
System.Numerics;
var
k, m: BigInteger;
n, j: word;
begin
readln(n);
for j := 1 to n do
k := k * 10 + 5;
k := k * k;
writeln(n, ' ', k);
repeat
m := m + (k mod 10);
k := k div 10;
until (BigInteger.Parse(k.toString()).isZero); //нет, isZero просто так не принимает IDE
k := 0;
writeln('Sum: ', m);
end.