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 ^^

0 bình luận về “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 ^^”

1. 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.

   Bình luận

2. 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.

   Bình luận