Viết chương trình nhập vào 2 số nguyên dương A,B (1≤A { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào 2 số nguyên dương A,B (1≤ABình luận
uses crt; var a,b,t,i:longint; function tong(a,b:longint):longint; begin for i:=a to b do if i mod 2=1 then inc(t,i); writeln(‘Tong cac so le: ‘,t); end; begin clrscr; write(‘a,b= ‘);readln(a,b); tong(a,b); readln end.
uses crt;
var a,b,t,i:longint;
function tong(a,b:longint):longint;
begin
for i:=a to b do if i mod 2=1 then inc(t,i);
writeln(‘Tong cac so le: ‘,t);
end;
begin
clrscr;
write(‘a,b= ‘);readln(a,b);
tong(a,b);
readln
end.