-
Постов
857 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент Галсан
-
X-tender извиняюсь конечно, но можно полностью программу написать. Что-то я не понял эту задачу
-
Помогите решить эту задачку: Подсчитать количество строк целой матрицы размера 4х6 в котором все элементы находятся в столбцах с четными номерами, нечетны. *09
-
я уже переправлял. После этого вылетает *11 з.ы. вот я тупанул забыл поставить readkey в конце uses crt; const y = 1; var a: array[1..y] of string; i, j: integer; s: string; begin clrscr; writeln('BBeguTe cJIoBo'); for i := 1 to y do readln(a[i]); for i := 1 to y do begin s := ''; for j := 1 to Length(a[i]) do begin s := s + a[i][j]; if a[i][j] = 'a' then s := s + 'MbI'; end; a[i] := s; end; for i := 1 to y do write(a[i], ' '); [b]readkey[/b] end.program zad; Спасибо bayarookie!!!!
-
Спасибо. Но чет выдает ошибку. Error 15: File not found (WINCRT.TRU)
-
Помогите дорешить задачку: Вставить в словах за каждой буквой "а" сочетание "мы" вот код: uses crt; const y=1; var a:array[1..y] of string; i,j,z:integer; begin clrscr; writeln('BBeguTe cJIoBo'); for i:=1 to y do readln(a[i]); clrscr; for i:=1 to y do write(a[i],' '); writeln; for i:=1 to y do begin z:=0; repeat z:=pos ('a',a[i]); if z<>0 then begin insert ('MbI', a[i], z+1); end; until z>0; end; for i:=1 to y do write(a[i],' '); readkey; end.program zad;
-
о_О я остал от жизни!! Даже не знал что это происходит! *18
-
Э чет после перезагрузки вот че получилось! *01
-
Homie Holmie Нет не влияет .В режиме роутера индикатор горит, а в брижде нет.
-
вот результаты карантина и 2 стандартного скрипта. ftp://ftp.burnet.ru/incoming/users/D_Master/Галсан/Карантин+2/
-
VR и D_Master Огромное спасибо! А после этого надо вылаживать результаты на фтп?
-
D_Master Проверь пожалуйста. вот ftp://ftp.burnet.ru:/incoming/users/D_Master/Галсан/ з.ы. ы 1 год как зарегался
-
*157
-
Мож кто уже видел, но все равно [sibvid] ftp://ftp.burnet.ru/incoming/users/other_torrent/vid/O'neal_жжот[/sibvid] +1 [sibvid] ftp://ftp.burnet.ru/incoming/users/other_torrent/vid/25052008024[/sibvid]
-
у меня также. и че далать?
-
О как быстро скачалось + 1 сид з.ы. Автору спасибо!+кто помагал раздавать!
-
Поздравляю всех С Новым Годом!!!
-
да, точно у меня показывает 1г. 12мес. 2д.
-
Спасибо играет. Но вот только звук исчезает, когда загружается 1 миссия. У кого-нибудь такое было?
-
assvad Спасибо!!!
-
При появлении релиза показывает старое время (на 1 час вперед)