Lập trình tính tổng các số chẵn trong phạm vi từ 1 đến M biết M là số nguyên dương nhập từ bàn phím ( M<550)

0 bình luận về “Lập trình tính tổng các số chẵn trong phạm vi từ 1 đến M biết M là số nguyên dương nhập từ bàn phím ( M<550)”

1. uses crt;

   var m,i,kq:integer;

   begin

   clrscr;

   write(‘Nhap m: ‘); readln(m);

   for i:=1 to m do 

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

   writeln(‘Tong la: ‘,t);

   readln;

   end.

   Bình luận

2. program tinhtong;

   uses crt;

   var m,i,t:integer;

   begin

   clrscr;

   write(‘nhap m:’);readln(m);

   for i:=1 to m do 

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

   writeln(‘tong t’,t);

   end.

   Bình luận