Перейти к содержанию

Галсан

Пользователи
  • Постов

    857
  • Зарегистрирован

  • Посещение

Весь контент Галсан

  1. X-tender извиняюсь конечно, но можно полностью программу написать. Что-то я не понял эту задачу
  2. Помогите решить эту задачку: Подсчитать количество строк целой матрицы размера 4х6 в котором все элементы находятся в столбцах с четными номерами, нечетны. *09
  3. я уже переправлял. После этого вылетает *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!!!!
  4. Спасибо. Но чет выдает ошибку. Error 15: File not found (WINCRT.TRU)
  5. Помогите дорешить задачку: Вставить в словах за каждой буквой "а" сочетание "мы" вот код: 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;
  6. Э чет после перезагрузки вот че получилось! *01
  7. Homie Holmie Нет не влияет .В режиме роутера индикатор горит, а в брижде нет.
  8. вот результаты карантина и 2 стандартного скрипта. ftp://ftp.burnet.ru/incoming/users/D_Master/Галсан/Карантин+2/
  9. VR и D_Master Огромное спасибо! А после этого надо вылаживать результаты на фтп?
  10. D_Master Проверь пожалуйста. вот ftp://ftp.burnet.ru:/incoming/users/D_Master/Галсан/ з.ы. ы 1 год как зарегался
  11. давай бороться c**$#@ бл***
  12. Мож кто уже видел, но все равно [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]
  13. О как быстро скачалось + 1 сид з.ы. Автору спасибо!+кто помагал раздавать!
  14. Спасибо играет. Но вот только звук исчезает, когда загружается 1 миссия. У кого-нибудь такое было?
  15. При появлении релиза показывает старое время (на 1 час вперед)
  16. Оо через 9 дней 4 часа 2 мин. Мы все узнаем!!!
×
×
  • Создать...