Найти все симметричные натуральные четырёхзначные числа.

@Danger Dominik · Регистрация: 17.11.2009

Author24 — интернет-сервис помощи студентам

Найти все симметричные натуральные четырёхзначные числа. Например 4554, 2222!

@Inadequate · 22.02.2010, 23:56

Pascal

function Pal(s : string) : boolean;
begin
  Pal := s[1] = s[Length(s)];
  if (s[1] = s[Length(s)]) and (ord(s[0])>2) then
    Pal := Pal(Copy(s, 2, Length(s)-2))
end;
var
  temp : string;
  i: integer;
begin
  for i := 1000 to 9999 do
  begin
    Str(i,temp);
    if Pal(temp) then
      Write(temp,' ')
  end;
  ReadLn
end.

@odip · 23.02.2010, 16:31

Быстрее будет если работать с числами, а не со строками.

@Danger Dominik 1 / 1 / 0 Регистрация: 17.11.2009 Сообщений: 30
		1
	Найти все симметричные натуральные четырёхзначные числа. 22.02.2010, 23:36. Показов 2786. Ответов 2 Метки нет (Все метки) Найти все симметричные натуральные четырёхзначные числа. Например 4554, 2222! 0

@odip 7175 / 3234 / 81 Регистрация: 17.06.2009 Сообщений: 14,164
	23.02.2010, 16:31	3
	Быстрее будет если работать с числами, а не со строками. 0

Найти все симметричные натуральные четырёхзначные числа.

Решение