viết chương trình nhập 2 số nguyên M,N /m khác n/ hãy viết ra màn hình các số chẵn và tính tổng các số đó từ M đến N
viết chương trình nhập 2 số nguyên M,N /m khác n/ hãy viết ra màn hình các số chẵn và tính tổng các số đó từ M đến N
uses crt;
var i,m,n,t:longint;
begin
clrscr;
write(‘Nhap m,n: ‘);readln(m,n);
for i:=m to n do
if i mod 2=0 then begin inc(t,i); write(i,’ ‘); end;
writeln;
writeln(‘Tong cac so chan tu m den n: ‘,t);
readln
end.
uses crt;
var n,m,i,tong:integer;
BEGIN
clrscr;
write(‘Nhap m:’); readln(m);
write(‘Nhap n:’); readln(n);
if m>n then
begin
write(‘Du lieu SAI’);
readln;
exit;
end;
tong:=0;
write(‘CAC SO CHAN TU M DEN N LA:’);
for i:=m to n do
if i mod 2=0 then
begin
write(i,’ ‘);
tong:=tong+i;
end;
writeln;
write(‘TONG CAC SO CHAN TU M DEN N LA:’,tong);
readln
END.
Chúc bạn học tốt.
Cho mình câu trl hay nhất nha.