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

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 151 05/07/2023


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

Đề bài: Viết chương trình nhập vào từ bàn phím một xâu ký tự, chương trình tự tìm những ký tự là số để xóa đi và xuất kết quả ra màn hình.

Lời giải

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau: '); readln(s);

for i:=1 to n do if not(s[i] in ['0'..'9']) then write(s[i]);

readln

end.

1 151 05/07/2023


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