Nhập vào 3 số nguyên dương p, q, r. Kiểm tra ba số này theo thứ tự nhập vào nó tạo thành cấp số cộng hay không. Nếu có thì in ra " YES" ngược lại thì in ra " NO"

Trả lời

Lời giải:

uses crt;
var p, q, r : integer;
begin
clrscr;
    readln(p, q, r);
    if q - p = r - q then write('YES')
    else write('NO');
readln
end.