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

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

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

Найти нужный

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

Определить принадлежит ли точка с заданными координатами прямой y=kx+b Помогите, пожалуйста. Нужно создать команду Turbo Pascal, таблицу с данными и... статья, набранная на компьютере, содержит 16 страниц, на каждой странице 32 строки, в каждой строке 20 символов. Определите информационный объем стать... ДАЮ 35 БАЛЛОВ!!!!!!! ПОМОГИТЕ УМАЛЯЮ!!!!!!!!!!! 1. Перечислите основные режимы работы текстового редактора. 2. Какие основные начертания шрифтов испо... Написать программу нахождения суммы большего и меньшего из 3-х чисел.для "паскаль"... Дан фрагмент программы. Чему будет равно значение переменной a после выполнения алгоритма? a = 12 for i in range(2):     a -= 3...