Program NN;Uses crt;Var St: String; i,d: longint;Begin Clrscr; Write('Nhap St: '); Readln(St); While St[1]=#32 do Delete(St,1,1); While St[length(St)]=#32 do Delete(St,length(St),1); While Pos(#32#32,St)<>0 do Delete(St,Pos(#32#32,St),1); d:=1; For i:=1 to length(St) do If St[i]<>#32 then Write(St[i]) Else Begin inc(d); Writeln; End; Writeln; Write(d); ReadlnEnd.
uses crt;
var S : string; i, d : byte;
begin
clrscr;
write('Nhap xau : '); readln(S);
d := 0; for i := 1 to length(S) do
if (S[i] = ' ') and (S[i + 1] <> ' ') then
d := d + 1;
if S[1] <> ' ' then d := d + 1;
write('Xau co ', d ,' tu');
readln
end.
everybody là chủ ngữ số nhiều hay ít.Why?
Giúp mình vs ạ nik cảm ơn nhiều
Bài 4:Tính chu vi của hình tam giác có độ dài các cạnh lần lượt là: 6,8cm; 10,5cm; 7,9cm.
Vẽ anime cổ trang * Yêu cầu: vẽ giấy A4, ưu tiên tranh có sẵn, full màu (ai vi phạm luật nhờ mod xóa luôn ạ)
Một lớp học có 18 học sinh nam và 24 học sinh nữ. Tính: a. Số nam sinh so với số nữ sinh chiếm bao nhiêu phần trăm? b. Số nữ sinh so với số nam sinh chiếm bao nhiêu phần trăm? c.Số nam sinh so với cả lớp chiếm bao nhiêu phần trăm? d.Số nữ sinh so với cả lớp chiếm bao nhiêu phần trăm? Mng chỉ cần ghi phần nào... phép tính( ko cần lời giải)
Cho hình vuông ABCD có độ dài đường chéo bằng 2cm. Tính độ dài cạnh của hình vuông.
Đồ thị hàm số y= 9xbình +6y= 1 có dạng là??
Hãy nêu chỉ ra các cặp góc so le trong so le ngoài đồng vị trong cùng phía ngoài cùng phía
xác định hóa trị của các nguyên tố trong HNO2; H2SO4; H3PO3
Rút gọn ( √a ³ - 1): ( √a + 1 ) ² Giải giúp mình với
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến