Задать вопрос
16 ноября, 08:52

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

+4
Ответы (1)
  1. 16 ноября, 10:49
    0
    Var S:string;

    C:char;

    i, k:integer;

    Begin

    WriteLn ('Введите строку') ;

    ReadLn (S) ;

    WriteLn ('Введите символ') ;

    ReadLn (C) ;

    i:=1;

    k:=0;

    While i<=Length (S) do

    Begin

    if S[i] = C then k:=k+1;

    i:=i+1

    End;

    WriteLn (k) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дана строка символов s и, далее, отдельно в новой строке дан одиночный символ с. Напишите программу, которая подсчитает, сколько раз символ ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы