Составить программу для паскаля: Найти сумму квадратов цифр целого числа. Количество цифр в числе не указан
Составить программу для паскаля: Найти сумму квадратов цифр целого числа. Количество цифр в числе не указан
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.