Viết CT in ra các số lớn hớn K từ m đến n với K,m,n nhập từ bàn phím
60 điểm 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ố lớn hớn K từ m đến n với K,m,n nhập từ bàn phím 60 điểm làm cho đúng nha! Không đúng mình báo ad xóa câu tl ^^
By Ximena
program incacso;
uses crt;
var m,n,i,k:longint;
begin
clrscr;
repeat
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
write(‘Nhap k: ‘); readln(k);
if m>=n then write(‘m phai be hon n’);
if (m>k) or (k>n) then write(‘phai m<k<‘);
until (m<=k) and (k<=n);
write(‘Cac lon hon ‘,k,’ tu ‘,m,’ den ‘,n,’ la: ‘);
for i:=k to n do
write(i,’ ‘);
readln
end.
program phuongt;
uses crt;
var K, m, n, i: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
write(‘Nhap m = ‘); readln(m);
write(‘Nhap K = ‘); readln(K);
write(‘Cac so lon hon K tu m den n la: ‘);
if n>m then for i:=m to n do if i>K then write(i:4);
if n<m then for i:=m downto n do if i>K then write(i:4);
readln
end.