LH Quảng cáo: lazijsc@gmail.com

Bài tập  /  Bài đang cần trả lời

Viết chương trình

giúp  mk vs mk cần gấp ạ
----- Nội dung dịch tự động từ ảnh -----
PHẢN II: TỰ LUẬN (3 điểm):
Câu 1 (1 điểm): Viết chương trình đọc một xâu S từ tệp có tên là BAI1.TXT. Đêm xem xâu
đó có bao nhiêu ký tự là dấu cách. In ra xâu khi đã xóa hết các ký tự dấu cách.
program bail;
uses crt3;
var f . ()
2 trả lời
Hỏi chi tiết
157
0
0
Unknown Coder
21/04/2022 21:47:33
+5đ tặng
Var s:ansistring;res:longint;
BEGIN
    Read(s);
    While (pos(' ',s) <> 0) do 
        begin
            inc(res);
            delete(s,pos(' ',s),1);
        end;
    Writeln(res);
    Write(s);
END.
 

Mở khóa để xem toàn bộ nội dung trả lời

(?)
Bạn đã đạt đến giới hạn của mình. Bằng cách Đăng ký tài khoản, bạn có thể xem toàn bộ nội dung trả lời
Cải thiện điểm số của bạn bằng cách đăng ký tài khoản Lazi.
Xem toàn bộ các câu trả lời, chat trực tiếp 1:1 với đội ngũ Gia sư Lazi bằng cách Đăng nhập tài khoản ngay bây giờ
Tôi đã có tài khoản? Đăng nhập
0
0
Nhat Nam
21/04/2022 22:00:38
+4đ tặng
uses crt;
var
    F : text;
    s,result : string;
    i,count_space:Integer;
begin
    clrscr;

    assign(F,'BAI1.TXT');
    reset(F);
    while not EOF(F) do
        begin
            readln(F,s);
            writeln(s);
        end;
            close(F);
    result:='';
    count_space:=0;
    for i:=1 to length(s) do
    Begin
        if s[i]=' ' then inc(count_space)
        else result:=result+s[i];

    end;
    write('So dau cach: ');
    WriteLn(count_space);
    write('Ket qua cua xau sau khi xoa dau cach: ');
    write(result);
    readln;
end.
chuỗi s trong hình: xin   chao .
Unknown Coder
compiler gì ngầu thế...
Nhat Nam
Pascal XE nha

Bạn hỏi - Lazi trả lời

Bạn muốn biết điều gì?

GỬI CÂU HỎI
Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm
Bài tập Tin học Lớp 11 mới nhất

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui Buồn Bình thường

Học ngoại ngữ với Flashcard

×
Trợ lý ảo Trợ lý ảo
×
Gia sư Lazi Gia sư