Viết chương trình tính tổng sau: S= 50+52+54+-.+400 Giúp mình với mọi người ơi, ai chắc chắn đúng hãy giúp ạ, bài ktra 15 phút Tin của mình đó ạ:<<

0 bình luận về “Viết chương trình tính tổng sau: S= 50+52+54+-.+400 Giúp mình với mọi người ơi, ai chắc chắn đúng hãy giúp ạ, bài ktra 15 phút Tin của mình đó ạ:<<”

1. Program viet_chuong_trinh_tinh_tong;
   Uses Crt; 
   Var i,s:integer; 
   Begin 
   Clrscr; 
   i:=2; 
   While (i>50) and (i<=400) do 
   Begin 
   s:=s+i; 
   i:=i+2; 
   End; 
   Writeln(S); 
   Readln; 
   End.

   Bình luận

2. program oken;

   uses crt;

   var i,s:longint;

   begin

   i:=50; s:=0;

   while i<=400 do

   begin

   s:=s+i;

   i:=i+2;

   end;

   writeln(‘Tong S=’,s);

   readln;

   end.

   Bình luận