В контрольной работе по информатике для студентов экономического
факультета требовалось написать на Паскале программку — подсчитать
сколько раз в введенной с клавиатуры строке встречается подстрока "мн".
Выдержка из одной контрольной:
...
writeln('Введите строку');
readln(str);
writeln('Сколько раз в этой строке встречается подстрока "мн"?');
readln(n);
writeln('Такая подстрока встречается:',n,'раз');
...
(c)?
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
прирожденный руководитель
Здравствуйте, Pavel Anufrikov, Вы писали:
PA>(c)?
БОР
Здравствуйте, KaBoom, Вы писали:
От: Pavel Anufrikov
Дата: 04.06.07
10:36
approved by DarkRider, 2007-06-04
11:57... << RSDN@Home 1.1.3 stable >>
Здравствуйте, Pavel Anufrikov, Вы писали:
Наверное албанский вирус тоже из этого института вышел

Сняться в плохом фильме — все равно что плюнуть в вечность. ©Ф.Раневская
Здравствуйте, Pavel Anufrikov, Вы писали:
PA>Выдержка из одной контрольной:
PA>...
PA>writeln('Введите строку');
PA>readln(str);
PA>writeln('Сколько раз в этой строке встречается подстрока "мн"?');
PA>readln(n);
PA>writeln('Такая подстрока встречается:',n,'раз');
PA>...
Соц-инжинерия. Кевин Митник?
... << RSDN@Home 1.2.0 alpha rev. 655>>
OK>От: Pavel Anufrikov
OK>Дата: 04.06.07 10:36
OK>approved by DarkRider, 2007-06-04 11:57
Кстати, это ничего не значит.
1) у сайтов может быть разное время
2) `approved` происходит намного позже появления на сайте.
Вполне может быть общий источник у обоих сайтов, может быть на RSDN скопировали с бора, но едва ли наоборот — слишком на БОРе долго проверяют.
Кстати, сегодня история получила продолжение:
http://bash.org.ru/quote/281607
Здравствуйте, Кодт, Вы писали:
К>Соц-инжинерия. Кевин Митник?
...
writeln('Слушай, а я тебя где-то видел. А, точно, помнишь те курсы
повышения квалификации осенью в прошлом году? Там ещё рассказывали
про уязвимость MessageBox(\\?\)');
readln();
writeln('А вот я тебя хорошо помню. Рад что тебя снова встретил.
С тех пор мне память добавили и видюху сменили... Ну да ладно.
Что я всё о себе да о себе! Тут вопрос небольшой есть. Найдётся минутка?');
readln();
writeln('Вот и отлично. Совсем запарился. Подскажи, сколько раз буква "м"
встречается непосредственно перед буквой "н" в той строке что ты
только что ввёл?');
readln(n);
writeln('Спасибо, выручил! Передавай жене привет. Мне пора, bb.');
writeln();
writeln('Такая подстрока встречается:',n,'раз.');
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>