Question

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

Answer 1

var i,n : longint;

begin
 read (n);
 for i:=10 to 99 do begin
  if (sqr(i mod 10))+(sqr(i div 10)) mod 13 = 0 then write (i,' ') else continue;
 end;
end.

Вроде верно...