Tin học Viết chương trình pascal

[Cầu Vồng]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1,Tính tổng S=-1+2-3+...+(-1)n+n với n là số nguyên dương được nhập từ bàn phím.
2, S= [tex]\sqrt{1+\sqrt{2+...+\sqrt{n-1+\sqrt{n}}}}[/tex] với n là số nguyện dương được nhập từ bàn phím.

 

[Hải Ham Học]

1,Tính tổng S=1+2-3+...+(-1)n+n với n là số nguyện dương được nhập từ bàn phím.
2, S= [tex]\sqrt{1+\sqrt{2+...+\sqrt{n-1+\sqrt{n}}}}[/tex] với n là số nguyện dương được nhập từ bàn phím.

cái s=1+2-3... có lộn không vậy, đáng ra phải s=1-2+3..+(-1)n+n hoặc s= -1+2-3 thì nó đúng hơn chứ

 

[Cầu Vồng]

cái s=1+2-3... có lộn không vậy, đáng ra phải s=1-2+3..+(-1)n+n hoặc s= -1+2-3 thì nó đúng hơn chứ

Mình nhầm đề bài ( -1 nhé bạn

 

[Hải Ham Học]

Bài 1 nhé

var i:integer;
       n:int64;
begin
   readln(n); s:=0;
   for i:=1 to n do
     if (i mod n<>0) then s:=s-i
     else then s:=s+i;
    writeln(s);
end.

 

[Hải Ham Học]

Bài 2 nè

var i:integer;
       n:int64;
begin
 readln(n);
 s:=0;
 for i:=n downto 1 do
   s:=sqrt(s+n);
 writeln(s);
readln;
end.

:v đọc code trên hiểu chứ ??? có thắc mắc gì không