Viết chương trình tính và in ra màn hình tổng S sau s 5a 2b 3

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end

uses crt;var s,n:longint;beginclrscr;s:=0;n:=1;while s≥25 dobegins:=s+n;inc(n);end;writeln(s);writeln('So n nho nhat sao cho tong S≥25 la: ',n);readln;

end.

Bài 1:Program Sum;Uses crt;Var n, res: longint;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        res := n * (n + 1) div 2;        Write('Sum = ',res);        Readln

End.

Bài 2:

Program Sum;Uses crt;Var n, i: longint;    res: extended;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        res:=0;        For i:=1 to n do                res := res + 1/i;        Write('Sum = ',res:0:2);        Readln

End.

Bài 3:

Program Sum;Uses crt;Var n, x, i: longint;    res: extended;Begin        Clrscr;        Write('Nhap n, x: '); Readln(n, x);        res:=0;        For i:=1 to n do                res := res + x/i;        Write('Sum = ',res:0:2);        Readln

End.

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

Viết chương trình cho phép nhập một dãy gồm n số nguyên từ bàn phím (0

a) sắp xếp và in dãy số vừa nhập theo thứ tự giảm dần

b) in ra phần tử có giá trị tuyệt đối lớn nhất trong dãy

Viết phương trình tính và đưa ra màn hình tổng s=1+2+3+...+100?

Các câu hỏi tương tự

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

viết chương trình tính tổng S={1+2+3+...+200}

Các câu hỏi tương tự