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.

Câu hỏi trong lớp Xem thêm