TIN HOC 11
Vẽ sơ đồ khối và viết chương trình của :
S=1^2+2^2+3^2+...+10^2
(lập với số lần chưa biết trước)
2 câu trả lời
code:
uses crt;
var n,i,s:longint;
begin
clrscr;
s:=0;
i:=1;
while i<=10*10 do
begin
s:=s+sqr(i);
inc(i);
end;
write(s);
readln
end.
sơ đồ khối: hình ảnh;
Với bài này sẽ dùng vòng lặp for và cho biến đếm i chạy từ 1 đến 10 rồi cộng kết quả của $i^{2}$ lại
Sơ đồ khối: Trong ảnh
Chương trình
Program tt;
Uses crt;
Var s, i: integer;
BEGIN
s:=0;
For i := 1 to 10 do s := s + sqr(i);
Write(s);
Readln;
END.
