Задать вопрос
15 февраля, 20:59

Во введенной строке подсчитайте количество символов "*" и символов "!".

Информатика. Паскаль. Строки

+2
Ответы (1)
  1. 15 февраля, 23:58
    0
    Var

    s:string;

    i, n1, n2:integer;

    begin

    Write ('Введите строку: ') ; Readln (s) ;

    n1:=0; n2:=0;

    for i:=1 to Length (s) do

    case s[i] of

    '*':Inc (n1) ;

    '!':Inc (n2)

    end;

    Writeln ('Найдено * : ', n1,',!: ', n2)

    end.

    Тестовое решение:

    Введите строку: Это * просто * ! * тестовая строчка!

    Найдено * : 3,!: 4
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Во введенной строке подсчитайте количество символов "*" и символов "!". Информатика. Паскаль. Строки ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы