uses crt;var s:string; i:byte;begin clrscr; write('Nhap xau: '); readln(s); while i<=length(s) do begin if (s[i] in ['A'..'z']) then begin delete(s,i,1); i:=i-1; end; i:=i+1; end; write('Xau ket qua la: ',s); readlnend.
uses crt;
var i:integer;
s1,s2:string[100];
begin
clrscr;
writeln('Nhap xau khong qua 100 ki tu:');readln(s1);
s2:='';
for i := 1 to length(s1) do
if (ord(s1[i]) in ['32'..'64']) or (ord(s1[i]) in ['91'..'96']) or (ord(s1[i]) in ['123'..'126']) then s2:=s2+s1[i];
writeln('Xau da xoa tat ca cac ki tu chu cai:');writeln(s2);
readln;
end.
Mik dg cần gấp mn giúp mik với hứa vote5s + bình chọn câu trả lời hay nhất :))
giúp mình vs phân tích và giải thích các đặc điểm của nhiệt độ không khí ; trình bày nguyên nhân dẫn đến sự ngưng tụ
Tại sao cần phải làm việc với dãy số trong pascal? (Mình cần gấp ạ.)
Hai lớp 4A và 4B trồng tất cả 272 cây. Biết lớp 4A có 32 học sinh, lớp 4B có 36 học sinh, mỗi học sinh trồng số cây như nhau. Lớp 4A trồng số cây là: A. 4 cây B. 128 cây С. 114 сây D. 16 cây Mai mình phải nộp rùi giúp mình nha
Câu 2 ạ giúp mik vs mik tic cho đang cần gấp
Câu 1 nhà nước pháp quyền là nhà nước quản lí mọi mặt đời sống xã hội bằng a;chính sách b;đạo đức c; pháp luật d;giáo lí Câu 2 nhà nước pháp quyền xã hội chủ nghĩa việt nam do tổ chức nào lãnh đạo a; mặt trận tổ quốc việt nam b; đảng cộng sản việt nam c; hội liên hiệp phụ nữ việt nam d; liên đoàn lao động việt nam Câu 3 quyền nào dưới đây không phải là nội dung của dân chủ trong lĩnh vực xã hội a; quyền được hưởng chế độ sức khỏe b; quyền bình đẳng nam nữ c; quyền tự do báo chí d; quyền lao động
Viết chuơng trình tính tích các số lẻ từ 1 đến n.
cho mình hỏi làm thế nào để học thuộc bài thật dễ và nhanh để tự tin đi thi mình đang cần gấp
Cho đường thẳng A(2;1), B(-1;3), (d): x=3+2t và y=1-t, t thuộc R. Tìm M thuộc (d) sao cho MA^2+2MB^2 đạt giá trị nhỏ nhất.
những khó khăn trong việc khai thác tài nguyên khoáng sản ở TDMNBB mình cần gấp ạ
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
