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" Giải giúp em gấp ạ ._.
1 câu trả lờ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.
Câu hỏi trong lớp
Xem thêm
