Tin học xây dựng chương trình con để lấy số ký tự ‘a’ trong một xâu 18/07/2021 By Ayla xây dựng chương trình con để lấy số ký tự ‘a’ trong một xâu
program dem_a; uses crt; var s:string; {—Chuong-trinh-con—} function dema(st:string):byte; var i:byte; begin dema:=0; for i:=1 to length(st) do if st[i]=’a’ then dema:=dema+1; end; {—Chuong-trinh-chinh—} BEGIN clrscr; write(‘Nhap xau: ‘); readln(s); write(‘=> Co ‘,dema(s),’ ki tu a’); readln; end. Trả lời
var d, i: byte; s: string; Procedure dem; Begin d:=0; For i:=1 to length(s) do if s[i]=’a’ then d:=d+1; End; Begin Write(‘nhap xau: ‘); readln(s); Dem; Write(‘co ‘, d, ‘ ki tu a’); Readln End. Trả lời