Регистрация
Ятот
30.10.2021 01:40
Информатика
Есть ответ 👍

Определить сколько слов в заданной строке начинаются на букву "а". pascal

190
444
Посмотреть ответы 2

Ответы на вопрос:

krllzrbn442
krllzrbn442
4,8(41 оценок)
Program project1;   uses crt; const   //разделители слов.   d = [ '.' , ',' , ': ' , '; ' , '! ' , '? ' , '-' , ' ' , # 9 , # 10 , # 13 ]; var   s : string;   i , cnt , len : integer; begin   repeat     writeln ( 'задайте строку: ' );     readln (s );       len : = length (s );     cnt : = 0;     for i : = 1 to len do begin       //пропускаем разделители.       if s [i ] in d then continue;       //отслеживаем начало слова.       if (i = 1 ) or (s [i - 1 ] in d ) then begin         if s [i ] in [ 'a' , 'a' ] then cnt : = cnt + 1;       end;     end;     writeln ( 'в заданной строке найдено ' , cnt , ' слов,' );     readln (s );   until s < > ''; end.
DashaBudlevskaya
DashaBudlevskaya
4,8(63 оценок)

https://www.facebook.com/100033783699774/posts/679766706492780/?app=fbl

Популярно: Информатика