определить все двузначные числа сумма квадратов цифр которых кратна числу 15 [Pascal]

[mrRastom]

Здравствуйте.
Задача следующая: "определить все двузначные числа сумма квадратов цифр которых кратна числу 15".

Такая задача уже всплывала на форуме, но была решена через массивы.
В данном случае необходимо решить ее через простейшие операторы.

Возможно поможет, вот решение через массивы от puporev:

Program Chislo15;
uses crt;
const n=9;
var a,b:array[1..n] of integer; i,j:integer;
begin
clrscr;
for i:=1 to n do   (Вводим первую цифру)
  a[i]:=i;
for j:=1 to n do   (Вводим вторую цифру)
  b[j]:=j;
for i:=1 to n do    (Создаем все двухзначные числа без нолей
  for j:=1 to n do   т.к. 0^2+a^2 никогда не кратны 15)
    begin
      if (sqr(a[i])+sqr(b[j])) mod 15=0 then  (Выбираем из них кратные 15.Это 36,39,63,93.
 write(a[i]*10+b[j],' ');                      (Выводим их на экран)   
    end;
  readln
end.

[Mad_Cat]

for i:=1 to 9 do
for j:=0 to 9 do
 if (sqr(i)+sqr(j)) mod 15=0 then writeln(i*10+j);

[mrRastom]

Спасибо огромное!

[Serge_Bliznykov]

кстати, в решении от Mad_Cat
можно и просто

... then Writeln(i,j);

это абсолютно несущественно, просто маленький штрих к решению...

[mrRastom]

Теперь вопрос такой, может ли кто нибудь помочь мне нарисовать блок схему?
Ну или подсказать.
Я так понял, что после блока "Начало" будет сразу идти блок модификаций? т.е. цикл?

[Serge_Bliznykov]

ищите на форуме программку FCEditor
она может по программе нарисовать блок-схему.

p.s. хотя, а что здесь рисовать то?!?! два цикла и один ромбик (условие)!!