Информатика

Вопрос/Задача:

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

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

Ответ
Ответ разместил: Гость

0

+1=1

+1=2

*2=4

+1=5

+1=6

*2=12

*2=24

+1=25

*2=50

Ответ
Ответ разместил: Гость

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

Ответ
Ответ разместил: Гость

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби

Ответ
Ответ разместил: dashakechenkova
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.

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

Вопросов на сайте: