Даны два предложения. Найти общее количество букв «н» в них

@kirill matha · Регистрация: 21.03.2014

Author24 — интернет-сервис помощи студентам

Даны два предложения. Найти общее количество букв «н» в них. Расчет количества букв «н» в предложении оформить в виде функции.

@CodeR · 13.04.2014, 08:03

Pascal

Var s1,s2:string;
    k:integer;
Function Count(s:string;ch:char):integer;
Var k:integer;
Begin
    k:=0;
    While Pos(ch,s)>0 do
    Begin
      inc(k);
      Delete(s,Pos(ch,s),1);
    End;
    Count:=k;
End;
Begin
    write('Введите первое предложение: ');readln(s1);
    write('Введите второе предложение: ');readln(s2);
    k:=Count(s1,'н');
    k:=k+Count(s2,'н');
    writeln('Общее количество букв "н" = ',k);
    readln;
End.

@kirill matha 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 6
		1
	Даны два предложения. Найти общее количество букв «н» в них 12.04.2014, 15:40. Показов 2884. Ответов 1 Метки нет (Все метки) Даны два предложения. Найти общее количество букв «н» в них. Расчет количества букв «н» в предложении оформить в виде функции. 0

	13.04.2014, 08:03

Даны два предложения. Найти общее количество букв «н» в них

Решение