em cùi quá, giúp em pascal ah

[Kelvin]

đề: Nhập 1 dãy số n <= 10. Tính trung bình cộng, xuất ra màn hình số kế tiếp số trung bình cộng.

 

[hny_84]

đơn giản thế mà cũng hỏi hả bạn

Begin

a=0

a,b,n: interger;

Write( Nhập n);

Readln n;

IF n>1 and n<=10 then

continue

ELSE

Break

ENDIF

For i =1 to n do

a=a+1

ENDFor

a=a/2

b=a+1

write(a)

write(b)

end.

Nhìn chung là thế. Còn cú pháp thì tự sửa nha.

Close topic