Program Menghitung Kemunculan Huruf "rh"

program duahuruf

Kamus

cc:char
ci,jumlah:integer
pita:string

Algoritma

output('masukkan kalimat : ')
input(pita)
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
jumlah:=jumlah+1
end
end
adv
end
output('jumlah huruf rh adalah : ',jumlah)

end.