Vol89

Увлекаюсь ОСТ-ами... Ууууу... заводит . Ну также и всё подряд слушаю где есть ритм. В отношении остальной музыки.

Главная страница

Вот куда куда, а в Израиль, съездил бы. Также в Германию. Нет а лучше в Перу самому побывать на развалинах. Дальше Иркутска никуда не ездил. А вот сестра ездила в Москву, а точнее в Тулу, Заокск.

5), 6), 8) Наверное за интересной темой в инет чаще лезу, надеясь чего-нибудь интересного нового прочитать. Скачать и посмотреть или послушать.

Я против введения платы за внутренний трафик Vol89

Не понял, а что с ними? Я унего был, сотрудниччал, так сказать. Профиль по моему на всём. Насчёт монитора ничего не могу сказать.

goblin2008 Фильм воспроизводиться? Посмотри пожалуйта его свойства - вкладка - Сводка. А то у меня ничего нет там. написано - Для выбранного элемента отсутствуют данные.

Вопрос о происхождении жизни Год выпуска: 2005 Страна: Иностранная Жанр: Научно-документальный Продолжительность: 1:01:16 Перевод: Профессиональный Тип перевода: Дублированный Описание: Отличный документальный фильм о происхождении жизни на земле. Использование 3D эффектов, качественные фотографии, научные факты. В фильме рассмотрены вопросы “Теории большого взрыва” и “Происхождения жизни на земле”. Доп. информация: Теория большого взрыва. Вначале небыло ничего… вакуум… пустой космос. И в этом пустом пространстве появился огненный шар и этот огненый шар взорвался миллиарды лет назад взорвался. Этот взрыв породил все пространство, энергию материю. Вселенная начала сильно расширяться производя фотоны, нейтроны и др. Эволюция космоса и отдельных частей продолжалась, продолжалось и взаимодействие материи и элементов материи. В результате чего звезды начали формироваться звезды планеты и галактики, а потом примерно 5 000 000 000 лет назад сформировалась звезда по имени “Солнце” и “солнечная система”. [rutube]b6cbed74cff967a7b98eb8c3a0b79281[/rutube]

Сейчас по телику сказали, что ещё ожидается снег.

Ва... Ва... Точно. А я думаю что же ещё надо было добавить? program Pioc; type mas=array[1..5,1..7] of integer; var a,b:mas; i,j,max:integer; procedure vvod(var c:mas;k,l:integer); begin for i:=1 to k do for j:=1 to l do c[i,j]:=random(99); end; procedure vyvod(c:mas;k,l:integer); begin for i:=1 to k do Begin for j:=1 to l do write(c[i,j]:4); writeln; end; end; procedure maximum(c:mas;k,l:integer); begin max:=c[1,1]; for i:=1 to k do for j:=1 to l do if a[i,j]>max then begin max:=a[i,j]; end; writeln('max=',max); end; begin randomize; vvod(A,4,7); vvod(B,5,6); writeln('Матрица А:'); vyvod(A,4,7); writeln('Матрицу Б:'); Vyvod (B,5,6); writeln; writeln('max matr A'); maximum(A,4,7); writeln('max matr B'); maximum(B,5,6); end. Написать программу для нахождения факториала числа. | > n!=1*2*3*4*5*...n; 5!=1*2*3*4*5=120

Baimer О большое спасибо.

Спасибо за ваши знания. var s,s1,s2:string; i:byte; begin writeln('Введите строку'); readln(s); s1:='Путин'; s2:='Медведев'; while pos('Путин',s)>0 do begin i:=pos(s1,s); delete(s,i,5); insert(s2,s,i); end; writeln(s); end. А лозунг такой дал: Путин жил, Путин жив, Путин будет жить. Теперь другая задача стоит. type stud=record FIO,addres:string[30]; G_r,group:longint; Pol:char; Phone:string[12]; end; var st:stud; a:array[1..3] of stud; i:integer; Begin for i:=1 to 3 do Begin writeln('Введите ФИО'); readln(a.FIO); writeln('Введите Адрес');readln(a.addres); writeln('Введите пол');readln(a.Pol); writeln('Введите телефон');readln(a.Phone); writeln('Введите год рождения, группу'); readln(a.G_r, a.group); end; writeln('Список студентов в ВУC'); for i:=1 to 3 do if (a.Pol='м') and (2009-a.G_r<27) then writeln(a.FIO:20,a.Addres:20,a.Phone:12); End. Дана строка символов, является ли она палиндромом, пример: аргентина манит негра - что с права на лево, что лево-на право, одно и тоже. Буква А - уже и есть палиндром. На тему записи: Данные о трёх студентах, выдать на экран, студентов женского рода старше 30-и лет. Хотя я думаю можно и 5-х записать.

Ulanovka Wi-Fi!!! Даёшь провайдер! до 24 Мбит/сек (3 МБ/сек) Это прямо как по локалке на саянах.

Оооо... Спасиб. А мне чего же, сегодня сказал декан. Что значение max:=-32565, не до конца, вообщем, он сказал, что: - Я могу такие данные ввести с которыми твоя программа не справиться, из-за этой строки.

Понятно.. Спасибо fedbur за инфорацию. Да... хороши бы ещё дома такой стоял, чтоб свет вырубили, а комп с нетом работал. А по теме. Скорей бы первое число, переключиться охота однако.

Предположение, чтобы: Автоматически строить таблицу? или для обнаружения требуемого числа.

Это что-ж? И на АТС? Свет отключился? А они генератор поставили, для поддержки рабочего состояния оборудования.

Кто с Восточного? Никто не знает чего там у нас на АТС"ке испытывали, я такого грохота (как от локомотива или даже двух) никогда не слышал, тем более от АТС Андронны коллайдер местного масштаба. Ведь свет поотключали на Восточном, главное когда я там был, то есть возле АТС.

petrovna Отжёг. Бугага...

По свежему хрустящему снегу пройтись, мдаааааа..... (и захрапел ). *18

X-tender const m=5;n=6; var a:array[1..5,1..6] of integer; i,j,max:integer; begin max:=-32565; for i:=1 to 5 do for j:=1 to 6 do begin read(a[i,j]); if (max writeln('max=',max,':'); for i:=1 to m do for j:=1 to n do if (a[i,j]=max) then writeln('Stroka=',i,', ','Stolbech-',j); end.

На Улановке уже сколько пикетов хотели сделать отдельные личности.

Теме уже бльше года, а до сих пор об одном... Ыыыы.... Вечная тема. не так-ли? Девушки красавицы, но мне нужна только одна.

Помогите составить прогу которая бы: Дан двумерный массив А[5;6], найти максимальный элемент массива, если таких элементов несколько, то выдать на экран местоположеие всех максимальных элементов. Номер строки и столбца матрицы =- или -= номер в строке. На основании этого кода: (хотя я его не правильно срисовал, поправлю). var a:array[1..4,1..5] of integer; i,j:integer; min; ns,nst:integer; begin for i:=1 to 4 do for i:=1 to 5 do read(a[i,j]); min:=a[1,1]; ns:=1; nst:=1; for i:=1 to 4 do for i:=1 to 5 do if a[i,j] begin min:=a[i,j]; ns:=i; nst:=j; end; writeln('min=',min,'Stroka-',ns,'Stolbech-',nst); end.