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

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

Показать ответ

Ответ:

0958261046p08tm5

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 оценок)

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

AngelinaMalik05

19.04.2020 08:03

Составить тест на тему «Структура языка Паскаль» (с тремя вариантами ответа...

Samina7161

15.08.2022 16:09

Действовали ли 3 закона робототехники в фильме терминатор?...

санёк55665464654

15.09.2022 02:57

Середовище скрейч - Складіть проект, у якому виконавець зменшить свій образ на 10, якщо до виконавця доторкаться вказівник миші, переміститься вправо на 100, якщо натиснуто...

Lololoshka98

29.09.2021 08:32

Напишите циклический алгоритм с во я живу на этом этаже?...

nasibovschool

30.05.2021 18:53

Сканируется цветное изображение размером 38,1×38,1 см.Разрешающая сканера — 600×1200 dpi, глубина цвета — 4 бита.Какой информационный объём будет иметь полученный графический...

Lelikc

25.12.2022 19:28

Для хранения растрового изображения размером 145×145 пикселей отвели 4 кб памяти. каково максимально возможное число цветов в палитре изображения?...

лолКекКострома21

25.12.2022 19:28

Определить значение переменной s после выполнения следующих операторов, пояснить: s: =0; i: =1; while i 1 do begin s: =s+1/i; i: =i-1; end; и как правильно написать...

if395478

26.05.2022 11:26

Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего высказывания блеза паскаля : красноречие - это живопись мысли...

rrrl1

11.01.2023 18:50

Примеры ситуаций,в которых информация; ,запоминается,измеряется,копируется,передается,разрушается,делится на части,ищется....

Brutal94

11.01.2023 18:50

Переведите 16,13(десятичная с/с)- (16 c/c)- (10 c/c) *с объяснением*...

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

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