Viết chương trình với biểu thức sau bằng lệnh for…do 2.4.6.8-.100/2+4+6+8+…+100

0 bình luận về “Viết chương trình với biểu thức sau bằng lệnh for…do 2.4.6.8-.100/2+4+6+8+…+100”

1. uses crt;

   var t,s: longint;

   i: integer;

   begin

   clrscr;

   t:=1;

   for i:=1 to 100 do begin s:=s+i; t:=t+i; end;

   writeln (‘tong la: ‘,s);

   writeln (‘tich la: ‘,t);

   readln;

   end.

   Bình luận