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

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

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

Найти нужный

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

Информатика 7 класс.Как решать данные задачи,объясните пожалуйста)... Архитектура хранения информации в Интернете соответствует 1. распределенной и централизованной информационным системам 2. централизованной информацио... Отметьте все виды памяти с произвольным доступом. дисковая память оперативная память (ОЗУ) постоянная память (ПЗУ) память на магнитной ленте памят... Дан фрагмент программы: read (a); read (b); c:=a+b; write (a, b); write (c) Упростите его, сократив число операторов ввода и вывода. Дан фрагмент прог... Внесите в схему информационных потоков в компьютере недостающие надписи: (напишите)-------------->Внутренняя-------------->Внешняя (напишите)&lt...