procedure TForm1.Button1Click(Sender: TObject);
var
x, i: integer;
y: string;
begin
x:= StrToInt(Edit1.Text);
Memo1.Clear;
for i := 1 to x do
begin
y:= IntToStr(sqr(i));
If Length(y) <> 1 then
delete(y, 1, Length(IntToStr(i)));
If StrToInt(y) = i then
Memo1.Lines.Add(IntToStr(i) + ' * ' + IntToStr(i)+ ' = ' + IntToStr(sqr(i)));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var zx,zxsqr,x:integer;
s1,s2,s3:String;
begin
Memo1.Clear;
x:= StrToInt(Edit1.Text);
for zx := 0 to x do {здесь поставь придел до которого искать}
begin
zxsqr:=sqr(zx);
s1 := IntToStr(zxsqr);
s2 := IntToStr(zx);
s3 := Copy(s1, length(s1)-length(s2)+1, length(s2));
if s2 = s3 then
memo1.Lines.Add(s3+' : '+s1);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
zx:integer;
res:integer;
zxsqr:longint;
modvalue:integer;
modzx:integer;
begin
for zx := 0 to 100 do {здесь поставь придел до которого искать}
begin
zxsqr:=sqr(zx);
if ((zxsqr)<10) then continue;{если единица должна выводится - заремарь}
modvalue :=10;
for modzx := 2 to length(inttostr(zx)) do
modvalue:=modvalue*10;
res := zxsqr mod modvalue;
if (res=zx) then
memo.Lines.Add(inttostr(zx)+' --> '+inttostr(zxsqr));
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.