Дана строка символов s и,далее,отдельно в новой строке дан одиночный символ с.Напишите...

Question

Дана строка символов s и,далее,отдельно в новой строке дан одиночный символ с.Напишите программу,которая подсчитает,сколько раз символ с встретился в данной строке s.Составить блок-схему,не используя цикл с параметром.

Comments

Паскаль? Бейсик? Си?

---

И нельзя ли без блок-схемы?))

---

паскаль

---

Хорошо,напишите программу,попытаюсь разобраться,но ,пожалуйста, без параметра

Answer 1

Var S:string;
    C:char;
    i,k:integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
WriteLn('Введите символ');
ReadLn(C);
i:=1;
k:=0;
While i<=Length(S) do<br>   Begin
   if S[i] = C then k:=k+1;
   i:=i+1
   End;
WriteLn(k);
End.

Comments

Спасибо!