program bai_giai;uses crt;var f:text s1,s2:string;begin clrscr; Assign(f,'KQ.TXT'); rewrite(f); readln(s1); readln(s2); delete(s1,4,1); delete(s2,4,1); writeln(f,s1); writeln(f,s2); close(f);end.
Trong đó delete(st,m,n) là xóa trong xâu st tại vị trí m xóa n kí tự
Const Fo='KQ.OUT';Var g: text; St: String;Begin Readln(St); Delete(St,4,1); Assign(g,Fo); Rewrite(g); Write(g,St); Close(g);End.
----
Yêu moazzzz :*
Mèo méo meo mèo meo ~
Giúp em câu 21,22,23 đi ạ.Em cảm ơn😊
giúp em câu 31 với
tìm số nguyên x biết : x (x+y) =1
Ai giỏi T Anh giúp e mấy câu Trắc nghiệm này với ạ
Giúp vs Câu mik đánh dấu √ là câu giúp mik nha và giải thích
vt văn về cây cối giúp mik với ạ
khi nhân một số với 235, một bạn học sinh đã sơ ý đặt tích riêng thứ hai và thứ ba thẳng cột với tích riêng thứ nhất nên tìm ra kết quả là 10285 . hãy tìm tích đúng của phép nhân đó . mong anh chị giúp em ạ lưu ý cách làm lớp 5
Lập dàn cho đề sau :Trình bày cảm nhận của em khổ thơ thứ 3 trong bài "Viếng năng Bác" Mn giúp mk với ạ,mk cần gấp ạ Cảm ơn mn trước nha❤
viết một tình huống trong đó sử dụng quyền khiếu nại và quyền tố cáo ( tình huống có 3 câu hỏi )
Em hãy miêu tả người thân yêu gần gũi với em nhất. NGắn gọn đủ ý nha 40 điểm ạ
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
