Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
program mangij;
uses crt;
type m=array[1..100] of array[1..100] of integer;
var i,j,b,c,d,x,y:integer;
a:m;
t:boolean;
begin
clrscr;
write('Nhap i: ');readln(i);
write('Nhap j: ');readln(j);
clrscr;
x:=1;
y:=1;
for b:=1 to i do
for c:=1 to j do
begin
textcolor(15);
a[b,c]:=b*c;
gotoxy(x,y);
if a[b,c]=2 then textcolor(red);
t:=true;
if a[b,c]=1 then t:=false;
for d:=2 to (a[b,c] div 2) do
if a[b,c] mod d=0 then t:=false;
if t then textcolor(red);
t:=false;
for d:=2 to a[b,c] do
if a[b,c] div d=sqrt(a[b,c]) then t:=true;
if t then textcolor(green);
write(a[b,c]:4);
x:=x+4;
if x>4*j then begin
x:=1;
y:=y+1;
end;
end;
readln;
end.
HứcLê Thùy Linh đã viết:Bạn hiếu hum nay với sự tik cực dụ dỗ của P và Link đã phá bỏ lời thề 40 ngày no games, hehe, no games từ hum qua n ko tính hum nay, bó tay òi.
Thía thì chịu roàiPhạm Thanh Bình đã viết:óe
có lênh nào là lạ đâu
toàn những thứ quen thuộc
còn bài lần trước là những bài lão tuấn giao sau bài này này
Hỏi thằng Xanh á anh ạNguyễn Lân Trung Anh đã viết:ai thích thi QG ko?
có 1 đống tài liệu muốn cho lắm rồi )
Hahaha khổ thân cu. )Nguyễn Đức Hiếu đã viết:Hức
ko phải tao cố tình chơi
mà lý do nó dài dòng như này
Đáng ra tao định về nhà roài
nhưng mà lại làm bài muộn
vềnhà sợ ăn mắng
nên thoai
rùi ra Đạt
đã định chỉ ngồi chat với kâu bài thoai
thì ko vô được Yahoo, ko có ai kâu bài cùng
hỏi tao phải làm gì đây
ko lẽ về trường 1 mình(((