Учитель математики МБОУ «СОШ 2» Перевезенцева Елена Николаевна Г.Новочебоксарск,2011. - презентация

1 Учитель математики МБОУ «СОШ 2» Перевезенцева Елена Николаевна Г.Новочебоксарск,2011

2 Дано предложение. Вывести все буквы «м» и «н», входящие в него program s1; var a: string; i:integer; begin writeln('Введите слово'); read(a); for i:=1 to length(a) do if ((a[i]='м') or (a[i]='н')) then write(a[i]); end.

3 2. Дано предложение. Определить долю (в %) букв «а» в нем. program s2; var a: string; i, s, b :integer; n:real; begin s:=0; writeln('Введите слово'); read(a); b:=length(a); for i:=1 to b do if a[i]='а' then s:=s+1; n:=s/b; write(n); end.

4 3. Дано предложение. Определить число вхождений некоторого буквосочетания. program s3; var a: string; i, n, b :integer; begin n:=0; writeln('Введите предложение'); read(a); b:=length(a); for i:=1 to b-1 do begin if copy(a,i,2)='ка' then n:=n+1; end; write('n=',n); end.

5 Дано предложение. В нем слова разделены одним пробелом (переноса "начальные и конечные пробелы и символ переноса слова «-» в предложении отсутствуют). Определить количество слов в предложении. program s4; var a: string; i, n, b :integer; begin n:=1; {! количество слов на одно больше чем пробелов} writeln('Введите предложение'); read(a); b:=length(a); for i:=1 to b do if a[i]=' ' then n:=n+1; write('количество слов=',n); end.