Viết ct nhập từ bằng phím 2 số nguyên M và N (M<N ) .Tính và đưa ra mà hình tổng các số trong phạm vi M đến N

var m,i,n,s:integer; begin write('Nhap 2 so: '); readln(m,n); for i:=m to n do s:=s+i; write('s= ',s); readln end.

Viết ct nhập từ bằng phím 2 số nguyên M và N (M
23/08/2021 Bởi Lydia

Viết ct nhập từ bằng phím 2 số nguyên M và N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết ct nhập từ bằng phím 2 số nguyên M và N (MBình luận

Var m,n,i,s:integer;

Begin

For i:=m to n do s:=s+i;

Write(s);

Readln

End.

Bình luận

Viết một bình luận Hủy