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

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

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

Найти нужный

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

Что такое "исходные данные " задачи?... Для генерации случайного числа из интервала [0, 1] необходимо использовать выражение *один правильный ответ random(11) random(2) random(1... Паскаль типы данных Напишите пожалуйста кратко Оочень надо... определите значение переменной а после исполнения следующего алгоритма . Порядок действий соответствует правилам арифметики с:=27 b:=100 -c*2 a:=b-c/9... 1. Сколько гигабайт информации содержится в сообщении объёмом четверть терабайта? 2. Укажите правильный порядок убывания перечисленных единиц измерени...