Lập trình đơn giản

Nguyễn Đoàn Du Hà

Cho biết 2 số tự nhiên M và N (1< M< N<= 10000), tính tổng S các bình phương của
các chữ số từ vị trí M đến vị trí N trong dãy nói trên.

Minh Lệ
17 tháng 9 2019 lúc 17:43

Lời giải:

program hotrotinhoc;

var s,n,m,i: longint;

begin

write('M='); readln(m);

write('N='); readln(n);

s:=0;

for i:=m to n do s:=s+i*i;

write(s);

readln

end.

Bình luận (0)
Chu Quang Lượng
17 tháng 9 2019 lúc 21:23

bạn có thể ghi rõ đề bài hơn được ko? trong dãy hay trong xâu?

Bình luận (1)
Nguyễn Lê Phước Thịnh
10 tháng 10 2019 lúc 22:46

uses crt;

var m,n,i,s:longint;

begin

clrscr;

write('nhap so dau:'); readln(m);

write('nhap so cuoi:'); readln(n);

s:=0;

for i:=m to n do

begin

s:=s+sqr(i);

end;

writeln('tong cua cac so trong khoang tu ',m,' toi ',n,' la: ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
Tran Quang Khai
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Ngọc Hà Nguyễn
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Hoàng Tài Phúc
Xem chi tiết
Hải Đăng
Xem chi tiết
Cao Phạm Hà Anh
Xem chi tiết
An Nhiên Phan
Xem chi tiết