написать программу в Паскале:Даны три числа А,В,С.Определить являются ли они...

Question

написать программу в Паскале:
Даны три числа А,В,С.Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.

Comments

ок)

---

если подходит, то отметь как лучший, пожалуйста)

---

не получается отметить

---

рядом со "спасибо" должно быть

---

Я об этом и говорю, что его нет(

---

ну ладно, в любом случае, рад был помочь))

---

Спасибо)

Answer 1

Var a,b,c,d:real;
begin
readln(a,b,c);
if a-b=b-c then
begin
d:=b-a;
writeln(d);
end
else
writeln('No');
end.