Войти Регистрация Спроси ai-bota

Дано пятизначное число.найти сумму квадрата его цифр

Ответ:

neoguy228

10.06.2020 14:52

For i:=1 to 5 do begin

Cifra:= num mod 10;

Num:= num div 10;

Sum:=sum+cifra*cifra;

End;

Объяснение:

0,0(0 оценок)

Популярные вопросы: Информатика

amaii

20.02.2021 16:18

1. Дано целочисленное натуральное число. Найти произведение всех цифр числа исключающих два и девять. Создать функцию нахождения произведения цифр числа. 2. Дан одномерный массив...

missiszador

25.05.2022 21:57

Какова должна быть минимальная длина кода, чтобы закодировать 114 известных химических элементов с алфавитов, содержащих...

ydaschamp

28.04.2021 19:04

б. На изображении пример электронной таблицы, в которой Андрею необходимо ввести свой ИИН (080705340854). Андрей вводит свой ИИН В ячейку А2, но ноль автоматически скрывается....

Blanco2017

20.11.2020 17:18

Укажите предложение, не являющееся высказыванием: 1)Гоголь писал «Мертвые души» в Риме. 2)Не можете ли вы передать соль? 3)Некоторые лекарства опаснее самих болезней. 4)Рукописи...

Shkolяr

03.03.2021 01:35

Все условия на изображении,создайте и вычислите по встроенным функциям и т.д....

kristinanester1997

20.01.2020 22:48

Тест Вариант 2.1. Закончите предложение: «Моделью называют объект, имеющий…»внешнее сходство с объектомвсе признаки объекта-оригиналасущественные признаки объекта-оригиналаособенности...

Daasshha1

25.11.2020 19:19

Добрый вечер. Подскажите за сколько рублей можно выложить на авито кит ASRock 960GM-GS3 FX FX 4100 (4 GHz) 8 gb dd3...

dpil900dima

17.04.2021 00:47

Что называется системой программирования (Раздача почти:) )...

sfinks98

07.06.2020 04:52

8.У исполнителя бета две команды которым присвоены номера :1.прибавь b 2. Умножь на 2 известно что программа 21212 переводит число 11 в число 130.определите значение b...

Gonsh1240

21.10.2021 04:06

Что делать если не запускается компьютер windows 10 чёрный экран с мышкой ничего нельзя запустить Пытался что либо запускать, никакие комбинации клавиш не работают...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку