Полный квадрат

[elmuss]

Прошу Вас помочь с решением данной задачи!

Важно!
Перед оказанием помощи прочитайте данное условие:

Можно использовать только операторы For, If, While, Repeat, Case, Div Mod.


Условие самого задания:

Среди всех трёхзначных чисел найти такие, в записи которых есть 2 подряд идущие цифры, образующие число равно полному квадрату.


Например:

163 - 16
449 - 49
169 - 16
364 - 36 64
401 - 01

Вывести их на экран в таком виде, что и в приведённом примере.

При этом числа с двумя полными квадратами в записи (типа 364) вывести зелёным цветом, а остальные жёлтым.

Вывести также общее кол-во найденных трёхзначных чисел.

Сколько среди них чисел с двумя полными квадратами в записи (типа 364)?


Замечание:

Прочитайте в Help про функции Trunc, Round, Int и Frac.
Это поможет вам справиться с проблемой: как определить, является ли число полным квадратом. Используйте одну из них.


==================
Заранее Благодарю Вас за помощь!

[ZX Spectrum-128]

А наработки ваши можно увидеть? Например, как вы выделяете цифры из числа?

[Mad_Cat]

Вывести их на экран
Вывести также общее кол-во найденных трёхзначных чисел

c:=0;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (frac(sqrt(i*10+j))=0) or (frac(sqrt(j*10+k))=0)  then begin  writeln(i*100+j*10+k); inc(c);end;