... exit else begin j:=0; dem:=0; repeat inc(dem); if luu[dem]=0 then j:=j+1; until j>b[i]; luu[dem]:=i; end; for i:=1 to n do write(g,luu[i]:2); end;BEGIN nhap; assign(g,gn);rewrite(g); ... Senbo;Uses Crt, Graph;Var f:Text; gd, gm, N, W,xo,yo:Integer;Procedure Nhap;Begin Write('Nhap so N<50:');Readln(N); If N>50 Then N:=50;End;Procedure Veluoi;Var i,j,x,y:Integer;Begin ... mỗi hàng là như nhau.Bài 17/2000 - Số nguyên tố tương đương (Dành cho học sinh THCS)Có thể viết chương trình như sau: Program Nttd;Var M,N,d,i: integer;Lời giải đề Toán Tin Tin học &...