Page 111 - C:\Users\Admin\Desktop\Sach mem upweb\
P. 111
100 Problems & Solutions Trang 111
else
begin
write('M ');
delay(td);
end;
end
else
begin
textcolor(14);
if out<>'' then write(f,'o ')
else
begin
write('o ');
delay(td);
end;
end;
end;
writeln(f);
end;
End;
BEGIN
Clrscr; textcolor(2);
Write('Nhap n= ');
Readln(n);
if n<=20 then out:=''
else
begin
out:='matmeo.inp';
writeln('Mo File meo.inp de xem ket qua');
end;
Assign(f,out);
Rewrite(f);
writeln(f,'(Chu M Ki hieu cho con meo, chu o ki hieu cho quan co)');
Xuli; writeln(f);
Writeln(f,'Tong cong co ',sqr((n+1) div 2),' con meo');
Close(f);
Readln;
END.
(Lời giải của bạn Đỗ Ngọc Sơn - Quảng Ninh)
Bài 56/2001 - Chia lưới
(Dành cho học sinh PTTH)
Program Chia_luoi ;
Uses Crt ;
Const Fi = 'LUOI.INP';
Fo = 'LUOI.OUT';
Var A : Array[1..20,1..20]Of Integer ;
Tin học & Nhà trường 100 Đề Toán - Tin học
