Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.

Pascal.

Question

Информатика

Павлинка

4 августа, 20:07

Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.

Pascal.

+2

Ответы (1)

Знаете ответ на вопрос?

Кирьяна · Answer 1

Var

n, S:integer;

Begin

Write ('n = ') ;

ReadLn (n) ;

S:=0;

While n > 0 do

Begin

S:=S+Sqr (n mod 10) ;

n:=n div 10

End;

WriteLn ('S = ', S) ;

End.

Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.Pascal.

Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.

Pascal.