Đỗ Phú Quang's Profile

program tong;

uses crt;

var a,b,i,t:integer;

begin

       clrscr;

       write('Nhap a va b:');readln(a,b);

       t:=0;

       for i:=a to b do 

             if i mod 2 = 0 then t:=t+i;

       write(t);

       readln

end.

 

viết trương trình nhập vào bàn phím 2 số a,b . Tính và in ra màn hình tổng các số tổng các số chẵn từ a đến b

viết trương trình nhập vào bàn phím 2 số a,b . Tính và in ra màn hình tổng các số tổng các số chẵn từ a đến b

program kiemtra;

uses crt;

var n:integer;

begin

       write('Nhap n:');readln(n);

       if n mod 2=0 then write('N la so chang') else write('N la so le');

       readln

end.