viết chương trình tính tổng của các số chẵn từ 1 đến

0 bình luận về “viết chương trình tính tổng của các số chẵn từ 1 đến”

1. @Meoss_

   * Viết chương trình như sau:

   Program Tinh_tong2;

   Uses Crt;

   Var i,n,S:integer;

   Begin

   Clrscr;

   Writeln(‘Ban hay nhap n’); Readln(n);

   S:=0;

    For i:=1 to 20 do

   begin

     if i mod 2 = 0 then S:=S+i; end;

   Writeln(‘ Tong cac so chan la ‘, S );

    Readln;

   End.

   Bình luận

2. program baitap;

   uses crt;

   var i,s:integer;

   begin

    clrscr;

    s:=0 ; i:=1;

    while i <= 20 do begin if i mod 2 = 0 then

    s:=s+i ; i:=i+1 ;

    end;

    writeln(‘ Tong cac so chan tu 1 den 20 = ‘,s);

    readln;

   end.

   Bình luận