1. Viết chương trình tính tổng S=1+2+3+..+n. Trong đó n là số nguyên nhập từ bàn phím. 2.Viết chương trình tính tổng 200 số nguyên đầu tiên. 3.Viết chương trình tính tích 30 số nguyên đầu tiên. 4.Viết chương trình tính n! 5.Viết chương trình tính x

1)

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

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

     S:=0;

   for i:=1 to n do

     S:=S+i;

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

readln;

end.

2)

program ct;

uses crt;

var i,n:integer;

      S:longint;

begin clrscr;

     S:=0;

   for i:=1 to 200 do

     S:=S+i;

   writeln('Tong 200 so nguyen dau tien la: ',S);

readln;

end.

3)

program ct;

uses crt;

var i,n:integer;

      T:longint;

begin clrscr;

     T:=1;

   for i:=1 to 30 do

     T:=T*i;

   writeln('Tich 30 so tu nhien dau tien la: ',S);

readln;

end.

4)

program ct;

uses crt;

var i,n:integer;

      gt:longint;

begin clrscr;

     gt:=1;

   for i:=1 to n do

     gt:=gt*i;

   writeln('n!= ',gt);

readln;

end.

Học tốt!

1.

program ct;

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong la:',s);

readln

end.

2.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 200 do t:=t+i;

writeln('tong cua 200 so nguyen dau tien la:',t);

readln

end.

3.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 to 30 do tich:=tich*i;

writeln('tich cua 30 so nguyen dau tien la:',tich);

readln

end.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 to a do a:=a*i;

writeln('n:=',a);

readln

end.

5. Thiếu dữ kiện