среди двухзначных чисел найти сумму квадратов цифр которых делится на 13 ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ С ЦИКЛОМ!!!!!ПААСКАЛЬ
Ответы
Ответ дал:
0
var
i,s:integer;
BEGIN
s := 0;
for i := 10 to 99 do
if i mod 13 = 0 then
s := s + (sqr(i div 10)+sqr(i mod 10));
write(s)
END.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад
9 лет назад