Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.
Гость
Ответ(ы) на вопрос:
ГостьVar i,a,b:integer;
Begin
for i:= 10 to 99 do Begin
a:=i mod 10;
b:=i div 10;
if ((sqr(a)+sqr(b))) mod 13 =0 then
write(i,' ');
End;
End.
Не нашли ответ?
Похожие вопросы