All pastes #738684 Raw Edit

Mine

public text v1 · immutable
·published 2007-10-16 15:33 UTC
rendered paste body
PROGRAM hányszorszerepel
  VÁLTOZÓK:
    s, x: SZÖVEG,
    i, n, darab: EGÉSZ
 
  BE:n
  i := 0
  darab := 0
CIKLUS AMÍG i < n+1
    BE:s
    HA s@"alma"<|s| AKKOR
      darab := darab + 1
    HA_VÉGE
    i := i + 1
  CIKLUS_VÉGE

  KI: darab
PROGRAM_VÉGE