Результати пошуку

:) uses wincrt; var s1,s:string[50]; l,i:byte; begin writeln('Введите строку:');readln(s); s1:='-'; l:=ord(s[0]); for i:=l downto 1 do if s[i]='-' then insert(s1,s,i); writeln(s); end.

Так? uses crt; var s,s1:string[50]; n,i,k:byte; begin writeln('Введите строку:'); readln(s); n:=ord(s[0]); for i:=1 to n do if s[i]=' ' then begin s1:=copy(s,1,i-1); break; end; writeln(s1); end.

Драйвера родные, пробывал качать другие с интернета. Переустановил винду и вот такая беда. Устанавливаю драйвера, а в конце вылетает такая вот фигня. Хелп!

Та не, меня интересуют цифры, которые появляются после запуска программы(показаны на скрине). Не могу найти ошибку у себя в коде(код выше написан).

язык паскаль. Найти минимальные значения и их номера в массивах A,B и C. uses wincrt; Type mas=array[1..100] of integer; Function Kuch(x:mas;n,k:byte):integer; var i,j,j_min:byte; min,r:integer; begin For i:=1 to k do begin j_min:=1; min:=x[1]; for...

Как с помощью этого можно узнать не пожредена ли винда на диске? SHA1: 66ac289ae27724c5ae17139227cbe78c01eefe40 MD5 : 5BF476E2FC445B8D06B3C2A6091FE3AA

Re: -=Наш постоянный сервер 10.0.52.66=- Ггг, да я сам бот. А какой кнопкой в одиночной игре биноклем пользоваться?

Re: -=Наш постоянный сервер 10.0.52.66=- Как ботов поставить если играешь с другом?

Если на будешь на костылях, то паркур тебе врядли светит

года 3 назад (ромашку) Когда в последний рза вам было стыдно за родных?

на эстраде крыво залито, седне шланги валялись, думаю завтра дольют нормально

ТУхнет и перезагружается комп при изменении разрешения, стиля и всего что связано с ним. Иногда просто так тухнет, меняется разрешение на 640х480, 4 цвета, но работает нормально. Видеокарта дохнет или что-то другое? Видеокарта Radeon 9200 SE.

теперь живу под церковью пойду

написала я в предсмертной записке люблю жизнь

Дальше даже обломить нечем люди добрые

Нет Кинешь фотку?

отъебись

член обниму

ссали больше чем он

теперь лечусь в психиатрии сьел кальмары