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

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

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

Найти нужный

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

Все 5-буквенные слова, составленные из букв А, О, У, записаны в алфавитном порядке. Вот начало AAAAA AAAAO ААААУ AAAOA Укажите номер слова OAOA... Видеоадаптер это: устройство управляющее работой графического дисплея программа, распределяющая ресурсы видеопамяти электронное, энергозависимое уст... Как перевести байты в биты?... Выдаёт ошибку (Встречено 'else', а ожидался оператор) Что делать?? Program R ; var a,b,c,x,D,x1,x2:real ; begin readln (a,b,c) ; D:= a*(x*x)+b*x+... Укажите правильный вариант записи условия х-двузначное число...