Question

se citesc a,b,c-nr. nat. Verificati dacă ele sunt in progresie aritmetica.

Answer 1

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!