USES crt;
VAR i:integer; s1,s:string;
BEGIN
clrscr;
s1:='';
write('Nhap chuoi:'); readln(s);
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then
else s1:=s1+s[i];
end;
write('chuoi sau khi xoa la:',s1);
readln;
END.
các bn lm hộ tui đc k mk kbt tin á , mà mai ktra r tuy nhiều nhưng giúp mk vs
có 45 câu nhá m.n :((
các bạn ơi giúp mình nhé!
đề : Nhập 1 xâu kí tự. Kiểm tra tính đối xứng của xâu đó. Nếu xâu không đối xứng thì đảo xâu.
lập trình pacal nhé các bạn!
Nêu các bước để sao lưu dự phòng 1 file sang USB.
mk sắp thi r....please giúp mk vs ạ! Cảm ơn nhiều.
Nhập vào bàn phím số tự nhiên N là số trang của 1 quyển sách. Để đánh N trang sách đó cần bao nhiêu chữ số N.
viết chương trình nhập vào số tự nhiên n và tính tổng các ước số của n mà các ước số đó là số nguyên tố.Giải thích n=6 thì ta có các ước số của 6 là 1,2,3,6.Trong đó các ước số là các số nguyên tố chỉ có 2 và 3.Vậy kết quả bằng 5(Pascal). Giúp mik v các bn
Viết chương trình tìm UCLN của a,b (a,b nhập từ bàn phím).
Kiểu mảng
giúp mk vs ạ
Nêu các dịch vụ thường dùng trên mạng Internet. Lợi ích khi sử dụng các dịnh vụ đó
Viết chương trình nhập vào bốn số A,B,L,R.Hãy đém xem có bao nhiêu số từ L đến R chia hết cho A và B (Pascal);
Thầy Phú phát kẹo cho các em học sinh theo qui tắc sau: Em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận nhiều hơn em trước đó 3 viên. Lớp có N học sinh tuy nhiên Thầy chỉ mang theo K cái kẹo thôi. Bạn hãy tính giúp thầy số lượng học sinh nhiều nhất nhận được kẹo. Thầy Phú rất nguyên tắc nên phát đúng theo quy định trên, kẹo còn thừa không đủ để phát theo quy tắc trên thì Thầy đem về cho cu Sắn lập trình pascal
