Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sương Đặng

Câu lệnh lặp for...do

Tính \(S=\sqrt{1^2+2^2+...+n^2}\)

Nguyễn Tấn Tài
6 tháng 2 2018 lúc 21:48

USES crt;

VAR s,n,i:integer;

BEGIN

clrscr;

write('Nhap n:');readln(n);

s:=0;

for i:=1 to n do

s:=s+sqr(i);

writeln('Ke qua cua s la:',sqrt(s));

readln;

END.


Các câu hỏi tương tự
Tô Quốc
Xem chi tiết
Quyên
Xem chi tiết
anhquan2008
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
duc cak
Xem chi tiết
Harry Anderson
Xem chi tiết
Trang Nguyễn
Xem chi tiết
Harry Anderson
Xem chi tiết
Harry Anderson
Xem chi tiết