Question

Составить программу для паскаля: Найти сумму квадратов цифр целого числа. Количество цифр в числе не указан

Answer 1

Program summa_zifr;

Var S, X, A: integer;

begin

s:=0;

Write ('Введите число для нахождения суммы');

Read (X);

While X<>0 do begin

A:= X mod 10;

S:= A * A + S;

X:= X div 10;

end;

Write ('Сумма квадратов цифр числа" , X , '=', S);

end.

 'Сумма квадратов цифр числа' - одинарный апостроф на конце предложения:)))

Answer 2

var
a,b,s:integer;
begin
readln (a);
while (a>0) do
begin
b:=a mod 10;
s:=s+b*b;
a:=a div 10;
end;
writeln (s);
end.