Мое первое задания...

[Rastislav]

Есть числа a,b,c нужно выяснить можно ли сложить из них арифметическую прогрессию...
Помогите. просто паскаль вижу в первое и не понять что сделать нужно...

[Grag]

if (b-a)=(c-b)
  then //можно
  else //не можно

[Rastislav]

Спасибо. буду учиться...

[evg_m]

if (b-a)=(c-b)

это если a<b<c или a>b>c //b между a и c
а если a<c<b или a>c>b или с<a<b или с>a>b //уауой-то другой является средним. Об упорядоченности исходной последовательности в задании не упоминается.

[Grag]

evg_m, я показал лишь принцип... Если есть шаг прогрессии, то...
А уж об остальном пусть ТС сам заботится и навешивает мишуру на прогу...

[evg_m]

я показал лишь принцип.

Я это понял и обратил внимание (надеюсь) TC на еще один принцип
об опасности принять желаемое (упорядоченная входная последовательность) за действительное (об упорядоченности в TЗ нет и намека).

[Jesus56]

ну можно будет задать формулой!!! a, b, c присвоить значение!!!

[Rastislav]

Всем Спасибо. получилось программу сделал и сдал...