Задать вопрос
30 июня, 22:27

Составьте программу подсчета количества слов мама в строке.

Pascal ABC

+5
Ответы (1)
  1. 30 июня, 23:07
    0
    Var x:string;

    i, y, z:longint;

    begin

    readln (x) ;

    y:=length (x) ;

    for I:=4 to y do

    begin

    if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;

    end;

    write (z)

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