Задача на delphi?

Question

[andrey69rus]

Найти произведение первых 23 пятизначных чисел, имеющих в составе число 6

помогите пожалуйста =)

Answer 1

[Владлен Грачев]

функция IntToStr(N: Integer): String
Преобразует целое число N в строку.

функция Pos(Substr: String; Str: String): Integer
Возвращает позицию (индекс) первого вхождения Substr в строке Str. Если Substr нет в Str, возвращает 0.

Остальное вы умеете, я надеюсь.

Comments

[andrey69rus]

спасибо)

Answer 2

[Spetros]

Учиться нужно самостоятельно.
Неучи никому не нужны.

Comments

[andrey69rus]

не спорю =) ну блин задали бы написать на php или c# без проблем но с дельфи трабл)

[andrey69rus]

впринципе часть кода даже без проблем... а вот работать с числами не умею)

for i:=10000 to 99999 do
тут проверка на наличие числа 6 и сложение и +1 в count

if count =23 then break;
end;

[andrey69rus]

поможете?)