Множества

AlexSTO

Дата: Четверг, 24.01.2008, 23:09 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 4

Репутация: 0

Замечания: 0%

Статус: Offline

Помогите с заданием,пожалуйста: ввести строку из 30 символов, подсчитать количество вхождений в неё буквы "N", используя множество латинские буквы (латинский алфавит.
Заранее благодарен.

AlexSTO

Seqular

Дата: Суббота, 26.01.2008, 10:09 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Code

i, Count: Byte;
s: String;
Begin
Readln(s);
For i := 1 to Length(s) do
If (s[i] = 'N') then Inc(Count);

Writeln('N входит в строку ',Count,' раз');
End.

Собсна, все...

Поддерживаю также проект сообщество молодых сисадминов

AlexSTO

Дата: Понедельник, 28.01.2008, 20:41 | Сообщение # 3

Новичок

Группа: Пользователи

Сообщений: 4

Репутация: 0

Замечания: 0%

Статус: Offline

Большое спасибо!

AlexSTO

		Среда, 08.01.2025
	Pascal 4 All