Версия для печати темы

Автор: Ринат 27.11.2002 17:37

Дано число Н. В промежутке от 1 до Н найти числа,запись которых совпадает с записью последних цифр квадратов этих чисел. Например, 5-25,
6-36.
желательно сегодня. горит.
Заранее благодарен.

Автор: mj 29.11.2002 6:33

var
  D, F, Z: Integer;
begin
  D := StrToIntDef(Edit1.Text, 0);
  Z := 10;
  for F := 1 to D do
  begin
    while Z<=F do
      Z := Z*10;
    if ((F*F) mod Z)=F then
      WriteLn(F);
  end;
end;