Tin học Viết chương trình nhập vào một xâu sau đó đếm số từ đó trong xâu (dựa vào khoảng cách để xác định số từ) 21/07/2021 By Piper Viết chương trình nhập vào một xâu sau đó đếm số từ đó trong xâu (dựa vào khoảng cách để xác định số từ)
Program So_tu; Uses crt; Var i,dem: integer; S: string; Begin Clrscr; Write(‘Nhap xau S: ‘); Readln(S); Dem:=0; S:=S+’ ‘; For i:=1 to length(S) do If S[i]=#32 then dem:=dem+1; Writeln(‘Trong xau co tat ca’,dem,’tu’); End. Trả lời
program phuongt;uses crt; var s: string; d, i: integer;begin clrscr; write(‘Nhap xau S = ‘); readln(s); for i:=1 to length(s) do if s[i]=’ ‘ then d:=d+1; write(‘Vay xau S co tat ca ‘, d+1, ‘ tu’); readlnend. Trả lời