Выведите числа , являющиеся квадратами двухзначных чисел. Паскаль !!!! Очень срочно...

Question

Выведите числа , являющиеся квадратами двухзначных чисел. Паскаль !!!!
Очень срочно !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Var
  i,d,e:integer;
begin
  for i:=10 to 99 do
  begin
    d:=i div 10; e:=i mod 10;
    if ((sqr(d)+sqr(e)) mod 13)= 0 then Write(i,' ')
  end
end.

Результат выполнения программы:
15 18 23 32 46 47 51 64 69 74 79 81 96 97 

Comments

Мне не надо делить на 13 !!!!!!!!!!!!!!!

---

нет

---

Что нет ?

---

http://znanija.com/task/11412902 , хорошо копируешь !