Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shastononelove2
23.08.2022 08:17 •
Информатика
Задано натуральное число n. вычислить сумму квадратов цифр заданного числа. pascal.
Показать ответ
Ответ:
Annnnnnnnnnнnna
06.10.2020 10:46
Var
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+Sqr(n mod 10);
n:=n div 10
End;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Keksic0066
10.04.2020 09:57
Кроссворд по теме «Создание презентаций».N2По вертикали:Один из объектов панели рисование,позволяющий создавать текст на слайде.2. Это режим отображает заголовки и текст наслайдах...
Кувшин13
22.03.2023 08:24
Между населёнными пунктами А, B, C, D, E, F построены дороги. Определи длину кратчайшего пути между пунктами A и F. Передвигаться можно только по дорогам, протяжённость которых указана...
avangardstroic
08.02.2020 13:43
Какие травянистые растения первыми цветут весною...
25marta52
08.02.2020 13:43
Выразите: в метрах: 1см; 5 см; 24 см; 1дм; 7дм; 1мм; 4мм; 39мм; 247мм; в часах: 1мин; 7мин; 19мин; 39мин; 1с; 4с; 58с....
blik5
08.02.2020 13:43
Определите размер стиха а.а.фед летний вечер тих и ясен...
эд104267
08.02.2020 13:43
Решить систему уравнений : х^2 + у^2=58 ху=21...
Mtaraska
08.02.2020 13:43
Укажи, в какой части слова может стоять разделительный твердый знак. в начале слова в середине слова в конце слова в середине и конце слова...
Saaabiii
08.02.2020 13:43
Разберите слова сосновый зимний и пушистый по составу. заранее ....
kotyaraasm
08.02.2020 13:43
Қолымда деген сөзді сөз құрамына талдау...
miroslav1234
08.02.2020 13:43
Слова на букву п с корнем лаг и лож...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+Sqr(n mod 10);
n:=n div 10
End;
WriteLn('S = ',S);
End.