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

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

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

Найти нужный

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

В соревнованиях по ориентированию участвуют 768 спортсменов. Специальное устройтсво регистрирует финиш каждого из участников, записывая его номер с ис... Для фразы из популярного мультфильма, представленной в 8-битовой кодировке КОИ-8, подсчитайте k — количество символов ( ) и I — её информационный объё... Какой вариант верный? При задании параметров страницы в текстовом редакторе устанавливаются а) поля, ориентация и размер страницы; б) интервал между... 3. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V и площадь поверхности S.Справка: V = a∙b∙c, S = 2∙(a∙b + b∙c + a∙c)... Выберите административные домены. 1) .de 2) .af 3) .biz 4) .org...