Среди двузначных чисел найти те, сумма квадратов цифр которых делится ** 13.

Question

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

Answer 1

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.