Viết chương trình tính 1+2+2+-+t với t là 1 số tùy ý do người sử dụng nhập vào

0 bình luận về “Viết chương trình tính 1+2+2+-+t với t là 1 số tùy ý do người sử dụng nhập vào”

1. uses crt;

   var i,t,s: integer;

   begin

   clrscr;

   write (‘nhap t: ‘);  readln (t);

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

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program bt;

   uses crt;

   var A,t,i:integer;

   begin clrscr;

   A:=0;i:=1;

   readln(t);

   while i<=t do

   T:=T+i;

   writeln(A);

   readln;

   end.

   Bình luận