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

Question

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

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

Задать свой вопрос

Вадим Крендясов 2019-02-26 22:51:59

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

Базалсева Дарина 2019-02-26 22:53:42

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

Вероника 2019-02-26 22:55:57

паскаль

Антон Баруцков 2019-02-26 23:02:35

Превосходно,напишите программку,попробую разобраться,но ,пожалуйста, без параметра

Подвойский Борис
Информатика
2019-02-26 22:48:51
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Что содействовало развитию культуры во Владимиро-Суздальском княжестве? Назовите ее

частота колебаний маятника равна 10Гц. чему равен период его колебаний?

сделайте 2 вариант заблаговременно спасибо

монолог про путишествие , Безотлагательно !!!!

Основание прямого параллелепипеда- ромб с периметром 40 см. Боковое ребро параллелепипеда

температура тела возросла это значит что скорость движения молекул тела. 1)

чему равно обычное атмосферное давление

мини-сочинение про розу

Срочно!!!Завтра сдавать!!!Мини сочинение про масленицу на британском.(На картинке

Прочитайте все слова по порядку и у тебя получится скороговорка.напиши

Милена Вартапетова · Answer 1 · 2019-02-26 22:53:32+3:00

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

О проекте

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

Добро пожаловать!