На заданном числовом промежутке требуется найти все квадратные числа с убывающими слева направо цифрами / Pascal ABC

[Veronika_13]

На заданном числовом промежутке требуется найти все квадратные числа с убывающими слева направо цифрами / Pascal ABC

[Stilet]

квадратные числа

Такие: 232, 1156511 ?
Или какие?

[Mad_Cat]

все квадратные числа

как ЭТО???

[Poma][a]

Квадратное число — число, являющееся квадратом некоторого целого числа.
Или же полный квадрат

[Аватар]

169=13^2 ??

[Poma][a]

169 - это квадратное число..
Только под условие задачи не походит

[Аватар]

а, все наоборот, по убыванию. Так:
31^2=961

[Poma][a]

А интересно.. 4, 9 удовлетворяют?

[doktor255]

4, это квадрат 2, 9 это квадрат 3. Как думаешь, удовлетворяет?

[Stilet]

Э-э-эм... Что-то типа:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var m,i,j,k,l:integer;b:boolean;
begin
  m:=1000;
  i:=10;
  j:=1;
  while j<m do begin
   j:=sqr(i);
   k:=j;
   l:=k mod 10;
   k:=k div 10;
   b:=true;
   while (k>0) do begin
    if (k mod 10)<=l then begin b:=false;break;end;
    l:=k mod 10;
    k:=k div 10;
   end;
   if b then writeln(j);
   inc(i);
  end;
  readln;
end.

Это не совсем ABC. но вроде должен подойтить. Только не копипасти пожалуйста