Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Задача в Паскале

Автор: Гость_Митя 26.12.2005, 16:59

Есть задача, нет мыслей, как ее написать в Паскале. "Вывести все двузначные числа, квадраты которых не имеют одинаковых цифр."
Очень надеюсь на Вашу помощь!dima_blin@mail.ru

Автор: cardinal 26.12.2005, 17:22

Перенесено из VB6.

Автор: Snowy 26.12.2005, 17:36

Код


var
  i, j: integer;
  s:  string;
  fl:  boolean;
begin
  for i:=10 to 99 do begin
    str(sqr(i), s);
    fl:=false;
    for j:=1 to Length(s) do
      if pos(s[j], copy(s, j+1, Length(s)-j))>0 then fl:=true;
    if not fl then WriteLn(i,' - ',sqr(i));
  end;
end;