Bài 2: Viết chương trình tính tổng T=1+2+3+…+n với n nhập từ bàn phím. Bài 5: Viết chương trình tính T=1+3+5+…+n với n nhập từ bàn phím. Bài 6: Vi

0 bình luận về “Bài 2: Viết chương trình tính tổng T=1+2+3+…+n với n nhập từ bàn phím. Bài 5: Viết chương trình tính T=1+3+5+…+n với n nhập từ bàn phím. Bài 6: Vi”

1. • trangthao118

   bài 2:

   program ct;

   uses crt;

   var s,i,n:integer;

   begin

   T:=0;

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

   writeln(‘tong’,T);

   readln;

   end.

   Bài 5:

   program ct;

   uses crt;

   var s,i,n:integer;

   begin

   T:=1;

   for i:=2 to n do T:=T+i;

   writeln(‘tich’,T);

   readln;

   end.

   bài 6:

   program ct;

   uses crt;

   var s,i,n:integer;

   begin

   Q:=1;

   for i:=2 to n do Q:=Q+i;

   writeln(‘tich’,Q);

   readln;

   end.

   Trả lời

2. Bài 2 :

   Program Bt2;

   Var i, S, n : integer;

   Begin

   Clrscr;

   S := 0;

   Write ( ‘ nhap n = ‘ );

   Readln ( n );

   For i := 1 to n do S := S + 1;

   Write ( ‘ Tong cua ‘, n , ‘ So tu nhien dau tien = ‘, S );

   Readln;

   End.

   Trả lời