простые цифры числа. вывести в столбец

[Сristina]

Здравствуйте уважаемые программисты! Подскажите пожалуйста как вывести в 1 столбец простые цифры числа.

И ещё пожалуйста- как описать: слово, в котором первый и последний символ - одна и та же буква...Очень надеюсь на вашу помощь

[Lokos]

В какой именно столбец?
если в StringGrid то так

procedure Add();
var
   i:byte;
begin
   for i:=1 to 250 do
      Form1.StrinGgrid.Cells[0,i]:=IntToStr(i);
end;

хотя что именно подразумевается под простыми числами)))
На счет слова можно задание по конкретней

[p51x]

хотя что именно подразумевается под простыми числами)))

Телепатю: дано 12345, надо вывести в столбик 1 2 3 4 5
Подобные были и не раз.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=103111
На всякий случай...

[Сristina]

Спасибо) простые в данном случае - имеющие только 2 делителя (1 и само число).
Например число 245738 --> 2
5
7
3
вот так...

[Serge_Bliznykov]

простые в данном случае - имеющие только 2 делителя (1 и само число).

ну, получилось задачку решить?
По ссылочке из пост #4 возьмите функцию проверки числа на простоту (хотя, в данном случае можно и прямо указать, не так уж много простых чисел <10
можно просто:

 if OneDigit in [2, 3, 5, 7] then Writeln(OneDigit);

для того, чтобы "разобрать" число на состовляющие.
можно:
или перевести число в строку через функцию STR()
или можно сразу вводить число как строку
и перебрать символы строки в цикле for i:=1 to Length(s) do
или можно воспользоваться таким кодом:

  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      <тут проверка OneDigit на простоту или на вхождение в набор простых цифр>
  end;

[Сristina]

Да, получилось переводом числа в строку через функцию)

Спасибо вам огромное)