Viết chương trình tính tổng các số nguyên từ s=30+31+…+50 *

0 bình luận về “Viết chương trình tính tổng các số nguyên từ s=30+31+…+50 *”

1. program bai1;

   uses crt ;

   var i,s:integer;

   begin

   clrscr;

   s:=0;

   for i:=30 to 50 do

   S:=S+i;

   write(ket qua la’,s);

   readln;

   end.

   Bình luận

2. uses crt;

   var i,s: integer;

   begin

   clrscr;

   s:=0;

   for i:=30 to 50 do s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận