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

1

Ответы и объяснения

Лучший Ответ!
  • TKOP
  • хорошист
2013-12-20T03:06:49+04:00
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.

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