Цифры данного трёхзначного числа N являются членами арифметической прогрессии (Delphi)

[Аделинка]

Нужен листинг немогу понять задачку плиииз помоогите.

Установить все используемые свойства в приложении програмным путём.
определить что, цифры данного трёхзначного числа N вляются членами арифмитической прогрессии.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
В последующем, темы с названием наподобие "Задача на Делфи" будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[p51x]

определить что, цифры данного трёхзначного числа N вляются членами арифмитической прогрессии.

Не знаете, что такое арифм. прогрессия?

[New man]

арифметическая прогрессия это
когда сначала за час выпиваешь бутылку водки
затем две
затем 1+2 3 бутылки
затем пять
затем восемь и дальше не помнишь

[Serge_Bliznykov]

New man
Вы ОЧЕНЬ сильно заблуждаетесь.

То, что Вы написали - это не арифметическая прогрессия, а числа Фибоначчи (каждый следующий член равен сумме двух предыдущих)...

А арифметическая прогрессия - это когда каждый последующий член отличается от предыдущего на заданную величину (шаг прогрессии).
например, 1, 2, 3, 4, 5...
или 1, 5, 9 ...
или
10 8 6 4 2 0 -2 -4 ....
____________


Аделинка, в чём проблема? Не знаете как перебрать цифры числа? Или как проверить для трёх чисел состовляют они ариф.прогрессию или нет?!
перебрать цифры ЛЮБОГО числа можно, например, преобразовав число в строку, примерно так:

  s := IntToStr(N);
  for i:=1 to Length(s) do { в s[i] - символьное представление очередной цифры числа}

или, в вашем случае, можно проще:

    D3 := i mod 10;
    D2 := (i div 10) mod 10;
    D1 := (i div 100) mod 10;

по второму вопросу

if (D2 - D1) = (D3 - D2) 
then ... арифметическая прогрессия
else ... не арифметическая прогрессия