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)
2 câu trả lời
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.
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.
