pascal
От: Pavel Anufrikov Россия  
Дата: 04.06.07 07:36
Оценка: 13 (5) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :))
В контрольной работе по информатике для студентов экономического
факультета требовалось написать на Паскале программку — подсчитать
сколько раз в введенной с клавиатуры строке встречается подстрока "мн".
Выдержка из одной контрольной:
...
writeln('Введите строку');
readln(str);
writeln('Сколько раз в этой строке встречается подстрока "мн"?');
readln(n);
writeln('Такая подстрока встречается:',n,'раз');
...


(c)?
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Re: pascal
От: Varezhka Россия  
Дата: 04.06.07 07:40
Оценка: 2 (2) +2 :)
прирожденный руководитель
Re: pascal
От: KaBoom Чехия  
Дата: 04.06.07 09:03
Оценка:
Здравствуйте, Pavel Anufrikov, Вы писали:

PA>(c)?


БОР
Re[2]: pascal
От: o.kostya  
Дата: 04.06.07 09:26
Оценка: +2 :)
Здравствуйте, KaBoom, Вы писали:

От: Pavel Anufrikov
Дата: 04.06.07 10:36

approved by DarkRider, 2007-06-04 11:57
... << RSDN@Home 1.1.3 stable >>
Re: pascal
От: lonli Беларусь  
Дата: 04.06.07 10:49
Оценка:
Здравствуйте, Pavel Anufrikov, Вы писали:

Наверное албанский вирус тоже из этого института вышел
Сняться в плохом фильме — все равно что плюнуть в вечность. ©Ф.Раневская
Re: pascal
От: Кодт Россия  
Дата: 05.06.07 11:25
Оценка:
Здравствуйте, 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>>
Перекуём баги на фичи!
Re[3]: pascal - vol.2
От: Arioch  
Дата: 05.06.07 11:46
Оценка:
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
Re[2]: pascal
От: dIcEmAN  
Дата: 05.06.07 16:21
Оценка: 2 (2) :))) :))
Здравствуйте, Кодт, Вы писали:

К>Соц-инжинерия. Кевин Митник?

...
writeln('Слушай, а я тебя где-то видел. А, точно, помнишь те курсы 
 повышения квалификации осенью в прошлом году? Там ещё рассказывали 
 про уязвимость MessageBox(\\?\)');
readln();
writeln('А вот я тебя хорошо помню. Рад что тебя снова встретил.
 С тех пор мне память добавили и видюху сменили... Ну да ладно.
 Что я всё о себе да о себе! Тут вопрос небольшой есть. Найдётся минутка?');
readln();
writeln('Вот и отлично. Совсем запарился. Подскажи, сколько раз буква "м"
 встречается непосредственно перед буквой "н" в той строке что ты
 только что ввёл?');
readln(n);
writeln('Спасибо, выручил! Передавай жене привет. Мне пора, bb.');
writeln();
writeln('Такая подстрока встречается:',n,'раз.');
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.