Viết CT in ra các số từ m đến n với m,n nhập từ bàn phím.
60 điểm nên làm cho đúng nha
Không đúng mình báo ad xóa câu tl ^^
Viết CT in ra các số từ m đến n với m,n nhập từ bàn phím.
60 điểm nên làm cho đúng nha
Không đúng mình báo ad xóa câu tl ^^
program incacso;
uses crt;
var m,n,i:longint;
begin
clrscr;
repeat
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
if m>=n then write(‘m phai lon hon hoac bang n’);
until m<n;
write(‘Cac so tu ‘,m,’ den ‘,n,’ la: ‘);
for i:=m to n do
write(i,’ ‘);
readln
end.
program im_14424;
uses crt;
var i,m,n: longint;
begin
clrscr;
writeln(‘ Nhap vao gia tri cua m va n: ‘);
readln(m,n);
if m>n then writeln(‘Gia tri cua m,n khong thoa man’);
else
begin
for i:=m to n do write (i:2);
readln
end;
end.