Tìm kiếm:

câu 1 hình như là dùng hàm copy hay sao nhỉ ?
copy(st,vị trí,số kí tự)

for duyệt thì chắc không tới 1s đâu, mất thời gian in ra là chủ yếu thôi :D
lớn nhất là 100000 thôi mà

câu 1:
thì dùng


for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i+j+k=20) and (((100*i+10*j+k)-2) mod 6=0) then
writeln(100*i+10*j+k);

đây là bài tính S hình thang:


Uses crt;
Var
a,b,h:integer;
s:real;
Begin
Clrscr;
Write('Nhap do dai day lon hinh thang:');

Mình thích thì ấn like thôi mà !
tại giờ ddth mới có nút like, ấn bù những lần trước chưa ấn thanks !

like hay mà !
có nút like để like mà !

Nếu post code thì bạn nhớ post luôn cả thuật toán cho dễ hiểu nhá !

Ok, mình sẽ rút king nghiệm lần sau.
thanks vì bạn đã nhắc nhở !

Uses crt;
Var
a:array[1..100] of longint;
F,F1:text;
n,i,j:longint;
BEGIN
Clrscr;
Assign(F,'C:\vao.txt');
Reset(F);
Assign(F1,'C:\ra.txt');