Tìm kiếm:

Hic, không ai giúp em à
........................

Lệnh blockread có 2 dạng: dạng đủ và dạng thiếu:
1. Blockread(var F: file; var Buffer; NumRec: Integer; Var RecRead: Integer)
2. Blockread(var F: file; var Buffer; NumRec: Integer);
F: Biến File...

thì chủ yếu là bạn ấy muốn máy tự chọn n phù hợp mà, tất nhiên là không được rồi

các bác giúp em giải bài chia kẹo cho 3 người với.
em chỉ giải được bài chia kẹo cho 2 người, còn 3 người thì chịu.
mong được giúp đỡ
thân

bạn hiểu sai ý của tuananh rồi
ý bạn ấy hỏi có cú pháp write(x:n:1) để in ra số x với độ dài n thay đổi phụ thuộc x.
ví dụ: x=345.23 --> n=5 và in ra '345.2' (không có khoảng trắng phía trước)
rất...

to etc2012


uses crt;
var n, i, j: integer;
begin
clrscr;
write('Nhap N: ');
readln(N);
for i:=N downto 1 do

var N, i, j, s, lmax, imax, jmax: integer;
begin
write('Nhap N: ');
readln(N);
lmax:=0;
for i:=1 to N div 2 do
begin
s:=i; j:=i;
while s<=N do...

const fi = 'BCNN.INP';
fo = 'BCNN.OUT';
var m, n: integer;

function UCLN(a, b: integer): integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
UCLN:=a;
end;

bài 2


var st: string;
ch: char;
i : byte;
begin
write('Nhap xau st: ');
readln(st);
write('Nhap ki tu ch: ');

Giải thích các lệnh:
1. reset(f,30); ---> mở file không kiểu f với kích thước bản ghi là 30 byte
2. blockread(f,buf,2); ---> đọc 2 bản ghi từ file f vào vùng đệm buf
==> Số byte đọc đươc từ...