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

2

Ответы и объяснения

  • Участник Знаний
2013-05-05T12:53:56+00:00

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.

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

  • kefa
  • главный мозг
2013-05-05T17:46:10+00:00

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.