Дано трехзначное число найдите сумму квадратов его чисел

1 ответ

Посмотреть ответы

Megamozg

2205

Var
n,i,s:integer;
begin
Write('Введите трехзначное натуральное число: '); Read(n);
s:=0;
for i:=1 to 3 do
begin s:=s+sqr(n mod 10); n:=n div 10 end;
Writeln('Сумма квадратов цифр равна ',s)
end.

Тестовое решение:
Введите трехзначное натуральное число: 714
Сумма квадратов цифр равна 66

Хороший ответ

29 декабря 2022 12:43

Остались вопросы?

Найти нужный

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

Заполните массив степенями числа 2 ( от 2 в 1 степени до 2 в энной степени) Паскаль ABCnet... Операнды арифметического выражения записаны в системе счисления с основанием 12. xAAx12 + 911x12 В записи чисел переменной x обозначена неизвес... Доступ к файлу book.txt осуществляется по протоколу ftp. Файл находится в папке science на сервере rebook.ru. Запиши адрес этого файла в сети... Толя, Петя, Саша и Ваня заняли первые четыре места в велокроссе. На вопрос, какие места они заняли, мальчики ответили: 1) Толя не занял ни первое,... Персонаж известной компьютерной игры Марио постарел и почти перестал прыгать. Но совсем недавно он увидел спуск из N ступенек, и его накрыло ностальги...