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

1 ответ

Посмотреть ответы

Megamozg

2200

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

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

Найти нужный

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

ДАЮ 85 БАЛЛОВ Запишите двоичное число, соответствующее следующей записи: 1 x 25 + 0 x 24+ 1 x 23 + 1 x 22 + 0 x 21+ 1 x 20 (Подсказка: перейдите от... Вопрос: Дискретная форма – это ... Выберите один из 3 вариантов ответа: 1) форма представления, при которой информация преподнесена в виде отдельны... 1)указать общее и различие функций клавиш Delete и BackSpace. 2)указать общее и различие перемещения по тексту с помощью клавиш управления курсором и... Текст занимает полных 5 страниц. На каждой странице размещается 30 строк по 70 символов в строке. Какой объем оперативной памяти (в байтах) займет это... Помогите!!! Нужно вывести на экран модуль вещественного числа F C++...