Repeated String

L : https://www.hackerrank.com/challenges/repeated-string/problem?h_l=interview&playlist_slugs%5B%5D=interview-preparation-kit&playlist_slugs%5B%5D=warmup

 

Q : 주어진 숫자까지 주어진 문자를 반복하여 a가 몇개인지 보는 문제. 

 

A : 나눠서 계산. 

 

 

Program repeatedString;
var
  sVal : String;
  iVal, iCnt, iFcnt, ii, iMod, iModcnt : int64;
begin
  Readln(sVal);
  Readln(iVal);

  iCnt  := 0;
  iFcnt := 0;
  iModcnt := 0;

  for ii := 1 to Length(sVal) do 
  begin
    if 'a' = Copy(sVal,ii,1) then Inc(iFcnt); 
  end;

  iCnt := iVal div Length(sVal);
  iMod := ival mod Length(sVal);
  if iMod > 0 then 
  begin
    for ii := 1 to iMod do
    begin 
      if 'a' = Copy(sVal,ii,1) then Inc(iModcnt); 
    end; 
  end; 

  Writeln((iCnt * iFcnt) + iModCnt);
end.