Conditia ca numerele a,b,c sa fie in progresie aritmetica este: b=(a+c)/2
Banuiesc ca Pascal:
program a_1;
var a,b,c:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (b=(a+c)/2) then
write('Numerele sunt in progresie aritmetica')
else
write('Numerele nu sunt in progresie aritmetica');
readln
end.
Bafta la scoala!
