Tin học kiểm tra a,b,c có phải cấp số cộng

[phanthikhanhhuyenb2@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập từ bàn phím các số a,b,c dương và kiểm tra xem a,b,c theo thứ tự có lập thành cấp số cộng hay không ? GIÚP MIK VS Ạ MAI KTRA HKI RỒI Ạ

 

[bùi thị xuân mai]

uses crt;
var a,b,c,t:integer;
begin
clrscr;

write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
t:=b-a;
if c-b=t then write('co') else write('ko');
readln​

end.