Question

Решение задач в паскале с помощью div и mod 8 класс.
Дано четырехзначное число . Нужно вычислить квадрат суммы всех цифр.
помогите пожалуйста!

Answer 1

Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.