Page 108 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 108

while i<=n*n do
begin
for k:=1 to n do
begin
a[b1,k]:=i;
inc(mau);
if mau>15 then mau:=1;
textcolor(mau);
gotoxy(5*k,b1);
write(i);
delay(70);
inc(i);
end;
inc(b1);
end;
writeln;writeln;writeln('Bang tren s co gia tri=0');
readln;
End;
{------------------------------}
BEGIN
Clrscr;
repeat
textcolor(white);
writeln('1:cau a (Tinh so luong S)');
writeln('2:cau b (Lap bang co S lon nhat)');
writeln('3:cau c (Lap bang co S nho nhat)');
writeln('4:thoat');
writeln('Chon chuc nang:');readln(chon);
case chon of
1: begin
clrscr;
tinh;
end;
2: begin
clrscr;
max;
end;
3: begin
clrscr;
min;
end;
end;{of Case}
clrscr;
until chon=4;
END.
(Lời giải của bạn:Nguyễn Việt Hoà)

Bài 53/2001 - Lập lịch tháng kỳ ảo
(Dành cho học sinh THCS và PTTH)
(* Tat ca cac lich deu la lich ki ao *)

Tin học & Nhà trường 100 Đề Toán - Tin học