Question

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

Answer 1

Ответ:

For i:=1 to 5 do begin

Cifra:= num mod 10;

Num:= num div 10;

Sum:=sum+cifra*cifra;

End;

Объяснение: