Операции над цифрами в числе Опции

[Lexa15]

Стыдно, но сама не решу, выручите пожалуйста!

Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n^2, и если нет, то поменять порядок цифр числа n на обратный, в противном случае приписать единицу в начало числа n.

[Krjuger]

Как вариант,но с численными переменными.

var
 n:longint;
 flag: boolean;
begin
 readln(n);
 n:=n*n;
 writeln(n);
 while (n<>0) and (Flag=False) do
 begin
   if (n mod 10=3) then begin
    flag:=True;
   end
   else
   begin
      n:=n div 10;
      writeln(n);
   end;
  end;
  writeln(flag);
  readln;
 end.

Проверил пару примеров,вроде нормально,найдете ошибку скажете.В переменной флаг храниться ответ на вопрос,есть ли значение в данном числе или нет.

Осталось только сделать то,что просят,тобишь добавить единицу,или перевернуть.

Сообщение отредактировано: Krjuger - 7.11.2011 14:05