Áp dụng trong xâu chuẩn
Uses crt;
var s, ho:string; i:integer;
begin
write(‘nhap s: ‘); readln(s);
write(‘nhap ho moi:’); readln(ho);
i:=1;
while i<= length(s) do
if S[i]><‘ ‘ then i:=i+1;
Delete(s,1,i-1);
insert(ho,s,1);
write(‘xau moi khi thay ho la: ‘,s);
readln
end.
Var st:string;
i,j:longint;
Begin
Clrscr;
Write('nhap ho va ten : ');
Readln(st);
For i:=1 to length(st) do st[i]:=upcase(st[i]);
Writeln(st[i]);
For i:=1 to length(st) do If st[i] in ['A'..'Z','a'..'z'] then j:=j+1;
Writeln('so ki tu co trong ten la : ',j);
Readln;
End.
viết đoạn văn nêu lên suy nghĩ của em về tinh thần yêu nước của nhân dân ta trong thời nay
https://img.hoidap247.com/picture/question/20200614/tini_1592141513811.jpghttps://img.hoidap247.com/picture/question/20200614/tini_1592141509486.jpg
cho e một bài toán về giải hệ phương trình có phần a b và c đầy đủ rồi giải bài đó (ko phải bài toán lập hệ phương trình nha)có đầy đủ điều kiện nha a giải theo cộng đại số b giải theo thế còn c thì thích giải kiểu gì cx dc nhưng pjair đúng
cho mình hỏi dạng tổng quát của dãy số là gì vậy ạ
1/2.3+1/3.4+...+1/x.(x+1) = 21/44 giúp em với !!!!
Trình bày cơ chế họat động trong điều hòa đường huyết (tăng và hạ) ở tuyến tụy.
Hai vòi nước cùng chảy vào 1 bể chứa không có nước thì sau 3h36p bể đầy. Nếu chảy riêng một mình thì vòi thứ nhất chảy đầy bể nhanh hơn vòi thứ hai 3h. Hỏi nếu chảy riêng thì mỗi vòi chảy đầy bể trong bao lâu?
Giúp mình bài 4 mình đang cần gấp
Bài văn tả cô lao công khoảng 4 mặt giấy nha mn ko chép mạng vì mik coi hết r (mik sắp hết điểm r nên hok choa thêm điểm đc:((( thank
Giúp mình với, mình đang cần gấp câu c,d,e
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
