VPF::Задача в Паскале - Форум программистов

Гость_Митя

Дата 26.12.2005, 16:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

cardinal

Дата 26.12.2005, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

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

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Snowy

Дата 26.12.2005, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Код


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;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »