Летопись МИФИ

Торжественное схождение с ума


ЕГЭ-2018
Тесты ЕГЭ Онлайн
Задачи ЕГЭ по математике
Решения ЕГЭ по математике

Вступительные экзамены и специальности
Фишки для Корума:
Рейтинг пользователей Корума
Настроение • Модераторы
Темы • Картина дня • Realtime
Прочие фишки:
Нецензурная брань
Народная орфография
Морзянка онлайн • Калькулятор
Анаграммы • Игра в города

Загрузка календаря

Новые записи

20.05Задача про фермера и его кредит
26.01Актуализация сервисов ЕГЭ по математике 2014 года
05.11Поломалось
28.08Смена парадигмы
18.07Как вести себя в приличном обществе, предварительно обмочив штаны
оглавление »

Лучшие записи

1.Математическое порно1545
2.Ответы ко всем задачам ЕГЭ по математике 2010 года791
3.Тесты ЕГЭ Онлайн515
4.Результаты ЕГЭ по математике367
5.Результаты ЕГЭ по русскому языку268

О чем тут?

NX VBAB Webometrics igjhs А1-08 Абитуриенты Бачинский ВКонтакте Ващенифтему Волга Диплом Дрессировка преподов Дума ЕГЭ Жизнь Забабахал Инновации История Кафедра 26 Кларк Корум Лженаука МИФИ МИФИсты Морзянка НИЯУ Нанотехнологии Наука Образование Омоймоск ПЦ Поздравляю Поиск Президент Преподы Приколы Программное обеспечение Рейтинги Русский язык Сессия Смерть Статистика Стихи Сувениринг Тест Учеба Учебные материалы ФЯУ Физтех Фотки Ядерщики матанализ

Комментарии

Финансовая пирамида за 10 рублей
  21 января 2018 (michelle)

Математическое порно
  15 января 2018 (ggggg)

Ответы ко всем задачам ЕГЭ по математике 2010 года
  10 января 2018 (Абдужалил)

Гвозди бы делать из этих людей
  5 января 2018 (нотилос)

Проверь, как быстро ты печатаешь
  17 декабря 2017 (Лика)

Опасайтесь психокодирования
  24 октября 2017 (бен ладен)

Тесты ЕГЭ Онлайн
  4 июля 2017 (Цезий23)

В помощь юному радисту: Морзянка 1.0
  19 мая 2017 (mari54)

О бедном завкафе замолвите слово
  13 февраля 2017 (Воен УПЧК)

Сциентифик калькулятор
  28 января 2017 (Soul)

$kib@t®onЪ
Сейчас на скибатроне
Шедевры
Я ищу слово,  «» 

а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я
a b c d e f g h i j k l m n o p q r s t u v w x y z

Слово «tel2»
впервые сказано пользователем 123trancer 25.12.2005 в 20:54,
и с тех пор употреблялось 14 раз.
СообщенияПользователиПользователи (top10)

Сообщения со словом
«tel2»

Запрос выполнился за 0.0100 сек.
  1. 25.12.2005, 20:54. 123trancer в теме
    «и еще одна прога»
    ... string 50 spr record name str family str tel1 str tel2 str end mas array 1 m of spr procedure num2 var f text var t mas var k integer var abon spr s str i integer begin for i 1 to m do begin t i family t i name t i tel1 t i tel2 end reset f k 0 while not seekeof f do begin readln f s s s i pos s abon family copy s 1 i-1 delete s 1 i i pos s abon name copy s 1 i-1 delete s i 1 i pos s abon tel1 copy s 1 i-1 delete s 1 i i pos s abon tel2 copy s 1 i-1 k k 1 t k abon end close f end procedure num1 var f text var t mas var k integer var abon spr begin append f writeln vvedite familiy readln abon family write f abon family writeln vvedite ima readln abon name write f abon name writeln vvedite domashnii telefon readln abon tel1 write f abon tel1 writeln vvedite mobilnii telefon readln abon tel2 writeln f abon tel2 close f num2 f t k end procedure num3 t mas k integer var i n integer a s str begin writeln vvedite bykvy dla poiska readln s n 0 for i 1 to k do begin a copy t i family 1 1 if a s then begin writeln t i family t i name t i tel1 t i tel2 n 1 end end if n 0 then writeln abonent ne naiden end procedure num4 t mas k integer var s str i n integer begin writeln vvedite familiy readln s n 0 for i 1 to k do begin if s t i family then begin writeln t i family t i name t i tel1 t i tel2 n 1 end end if n 0 then writeln abonent ne naiden end procedure num5 var f text var t mas k integer var s str i n j integer begin writeln vvedite familiy readln s j 0 for i 1 to k do begin if t i family s then begin writeln t i family t i name t i tel1 t i tel2 writeln esli xotite redaktirovat na mite 1 esli net 0 readln n if n 1 then begin writeln vvedite familiy readln t i family writeln vvedite ima readln t i name writeln vvedite domashnii telefon readln t i tel1 writeln vvedite mobilnii telefon readln t i tel2 j 1 end end end if j 1 then begin rewrite f for i 1 to k do writeln f t i family t i name t i tel1 t i tel2 close f end else writeln abonent ne naiden end procedure num6 var f text var t mas var k integer var s str i n integer begin writeln vvedite familiy readln s n 0 for i 1 to k do begin if t i family s then begin t i family t k family t k family t i name t k name t k name t i tel1 t k tel1 t k tel1 t i tel2 t k tel2 t k tel2 k k-1 n 1 end end if n 1 then begin rewrite f for i 1 to k do writeln f t i family t i name t i tel1 t i tel2 close f writeln ydalenie zaversheno end else writeln abonent ne naiden end procedure num7 t mas k integer var i integer begin for i 1 to k do writeln t i family t i name t i tel1 t i tel2 end procedure menu z integer var f text var t...

← раньше

позже →


Рейтинг блогов



 

откуда • куда • где • eureka!
Бездарно потраченное время:
101870 дней