Mong mọi người giúp em à cứu em huhu mai em kiểm tra 1 tiết nên em đang cần đáp án rất gấp ạ ! em cảm ơn
1) lập trình nhập 2 số nguyên a và b từ bàn phím ( a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Mong mọi người giúp em à cứu em huhu mai em kiểm tra 1 tiết nên em đang cần đáp án rất gấp ạ ! em cảm ơn 1) lập trình nhập 2 số nguyên a và b từ bàn", "text": "Mong mọi người giúp em à cứu em huhu mai em kiểm tra 1 tiết nên em đang cần đáp án rất gấp ạ ! em cảm ơn 1) lập trình nhập 2 số nguyên a và b từ bàn phím ( aTrả lời
Mong mọi người giúp em à cứu em huhu mai em kiểm tra 1 tiết nên em đang cần đáp án rất gấp ạ ! em cảm ơn 1) lập trình nhập 2 số nguyên a và b từ bàn
By Margaret
1)
uses crt;
var a,b,i,d:longint;
begin
clrscr;
write(‘a,b(a<b)=’);readln(a,b);
for i:=a to b do if i mod 2=1 then inc(d);
writeln(‘So so le: ‘,d);
for i:=a to b do if i mod 2=1 then writeln(i);
readln
end.
2)
uses crt;
var a,b,i,d:longint;
begin
clrscr;
write(‘a,b(a<b)=’);readln(a,b);
for i:=a to b do if i mod 2=1 then inc(d);
writeln(‘So so le: ‘,d);
for i:=a to b do if i mod 2=1 then writeln(i);
readln
end.