Question

Складіть програму обчислення суми квадратів цифр цілого трьохзначного числа. Екран, повинен мати вигляд:
Введіть трьохзначне число:345
9+16+25=50

На мові Pascal

Answer 1

Var sum,d,n,s,dns:byte;

Begin

write('Введіть трьохзначне число:'); read(dns);

s:=dns mod 10; dns:= dns div 10;

n:=dns mod 10; dns:= dns div 10;

d:=dns mod 10;

s:=sqr(s);

n:=sqr(n);

d:=sqr(d);

sum:=d+n+s;

Writeln(s'+'n'+'d'='sum);

end.