Задано натуральное число n. вычислить сумму квадратов цифр заданного числа. pascal.

Ответы

aaalino4ka 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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

влалллла 06.10.2019 07:10

Сканируется цветное изображение размером 20 х 30 кв.см. разрешающая сканера — 600 х 600 dpi, глубина цвета — 3 байта. какой приблизительный информационный объём (в мб) будет иметь...

sanelya2 06.10.2019 04:48

Примеры систем , в которых отдельные человек, группа людей, техническое устройство, животные могут быть: 1) объктом ; 2) объектом....

virakudleychuk 16.05.2020 14:01

Назвіть тип алгоритму, що використано в програмі: а. розгалуження; б. повторення; в. сортування; г. слідування. 11. (1. ) Назвіть тип циклу, що зображено в блок-схемі: цикл_з лічильником.JPG...

hojimutito 16.05.2020 14:01

Напишите программу, которая считывает с клавиатуры два целых числа и строку. Если эта строка является обозначением одной из четырёх математических операций (+, -, *, /), то выведите...

nikitka1011 23.12.2020 15:57

Как изменится двоичный код вещественного числа, если это число умножить на 2? Сравните с тем, как меняется код целого числа при удвоении....

diana5974767 29.05.2019 06:00

Скорость передачи данных через adsl-соединение равна 128000 бит/с. сколько времени (в секундах) займет передача файла объемом...

anastasialishcnastya 29.05.2019 06:00

№1. найти произведение цифр заданного трехзначного числа. №2.вычислить выражение y=cos(1)+cos(1/2)+cos(1/3)++cos(1/n), где n вводить с клавиатуры. №3. даны действительные числа а1,а2…аn....

СоНьКаАаАаА 20.11.2021 14:31

Please i need help giving 100 points...

лошарикуни 20.11.2021 14:31

The students translated a difficult text yesterday.We solve difficult problems on math every lesson.We will do a difficlut lab work tomorrow.К каждому предложению составить все типы...

HeeeeelpPlz 20.11.2021 14:31

Объём цилиндра равен 32см3. Радиус основания цилиндра уменьшили в 2 раза; высоту цилиндра увеличили в 4 раза. Вычисли объём полученного цилиндра....

Задано натуральное число n. вычислить сумму квадратов цифр заданного числа. pascal.

Популярные вопросы