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

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

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

Найти нужный

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

На какие устройства производится вывод графических изображений?... Помогите пожалуйста Определи правильный ответ. В каком фрагменте программы нет ошибки? if a!0=5: b=a-6 if w=10 print (w) elif d>0: d=c+1 if d&... . Отметьте истинные высказывания. 1. объект, который используется в качестве "заместителя", представителя другого объекта с определенной целью, назв.... Составьте программу вычисления значения функции: y=5x^2-4/2x+8... 1)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям: − остаток от деления...