Question

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

Answer 1

Var i,a,b,c:integer;
 Begin
For i := 10 to 99 do
begin a:=i div 10;
 b:=i mod 10;
 c:= a*a+b*b;
if c mod 13=0 then
 writeln(i);
 end;
 End.