дано пятизначное число.Найти сумму квадрата его цифр
Ответы на вопрос
Ответил dim4942
0
Ответ:
For i:=1 to 5 do begin
Cifra:= num mod 10;
Num:= num div 10;
Sum:=sum+cifra*cifra;
End;
Объяснение:
Новые вопросы