Chuyển sang C++ giúp mình với ạ 1: uses crt;var a,b,i,tsc,tsl:integer;beginclrscr;write(nhap a); readln(a);write(nhap b); readln(b);if (a0) and (b0) thenbeginif ab thenbegintsc:0;tsl:0;for i:a to b doif i mod 20 then tsc:tsc+ielse tsl:tsl+i;writeln(tong cac so chan trong khoang tu ,a, toi ,b, la: ,tsc);writeln(tong cac so le trong khoang tu ,a, toi ,b, la: ,tsl);endelse writeln(vui long nhap a be hon b);endelse writeln(vui long nhap hai so duong);readln;end.
Đọc tiếp
Chuyển sang C++ giúp mình với ạ 1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.
