Nội dung bài viết

    Xem thêm

    Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 373 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch

    Đề bài: Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.

    Lời giải:

    uses crt;

    var i : byte; St : string; ch : char;

    begin

    clrscr;

    write('Nhap xau ki tu : '); readln(St);

    write('Nhap ki tu : '); readln(ch);

    i := 1; while i <= length(St) do

    begin if St[i] = ch then begin

    delete(St, i, 1); i := i; end

    else i := i + 1; end;

    write('Xau moi : ', St);

    readln

    end.

    Xem thêm các câu hỏi Tin học có đáp án khác:

    So sánh sự giống và khác nhau giữa rom va ram

    Firmware đề cập đến điều gì?

    Tiền đề quyết định cho sự phát triển nền kinh tế tri thức là?

    Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là

    Khi tạo ra 1 biểu mẫu để nhập dữ liệu thì ta bắt buộc phải

    Hãy chọn biểu diễn tên đúng trong những biểu diễn sau

    Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

    Trong thiết bị sau, thiết bị nào có tốc độ truy xuất chậm nhất

    Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n

    Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím

    Viết chương trình xét một tam giác có là tam giác vuông hay không

    Viết chương trình Python cho phép nhập vào 3 số nguyên a,b, c

    Viết chương trình in ra thông báo một số nguyên nhập vào từ bàn phím

    Cho đoạn chương trình sau: x:=8,y:=10; If x>y then

    Để chạy chương trình ta dùng tổ hợp phím:

    Cho đoạn chương trình sau

    Viết chương trình dịch các ngày trong tuần ra tiếng anh

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 373 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: