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

bimmer, а на какой ты специальности учишся?

C тя литра сока :) program massiv; uses crt; const mas1:array[0..9] of integer=(1,2,3,4,5,6,7,8,9,10); var mas2:array[0..9] of integer; i,summ:integer; s,sum:string; begin for i:=0 to 9 do begin mas2[i]:=mas1[i]*2; summ:=summ+mas2[i]; str(mas2[i],s); sum:=sum+s+' '; end...

Re: Помогите решить задачу в Turbo Pаscal 7.0 та не вопрос, уже половина готова :)

Re: Помогите решить задачу в Turbo Pаscal 7.0 и че за такое мну будет если решу? :) P.S. если че пиши в асю 357630044

program shufrovanie; uses crt; var s,s1:string; i,k:integer; begin write('Введите зашифрованое предложение: '); readln(s); for k:=1 to 9 do for i:=1 to length(s) do begin s1:=''; insert(chr((org(s[i])+k),s1,i); writeln('При k=',k,' Расшифрованная строка: ',s1); end; repeat until...

pentium там у тя 2 ошибки. Код твой малость подправил, там у тя 2 ошибки было. Компилится нормально. Потестируй сам, если что пиши помогу если смогу :)

Nalivai первая задача есть уже на форуме: http://forums.sumy.ua/showpost.php?p=468445&postcount=230 замени тока ":" на "." На вторую задачу тоже есть гдето ответ :)

ппц program stroka; var s:string; i:integer; begin write('Введите строку'); read(s); i:=pos(':',s); if i<>0 then write(copy(s,1,i-1)) //выводим часть строки расположеную до ":" else write('В строке нет символа ":"'); readln; readln; end.

У когото есть саундтреки с фильма "Фабрика футбола"?

напиши задачи в ЛС :lam:

Писал на Delphi, но для паскаля тож пайдет. Сори за такой извращенный код :) const n=5; var mas:array[1..n,1..3] of integer; i1,i2,i3,j1,j2,j3:integer; x1,x2,x3:integer; begin {заполняем массив числам} //сортируем первый столбик for i1:=1 to n do for j1:=1 to n-1 do if...

а может мы всего лишь программы, результат искусного программирования....

комп. юмор :)

Не сказал бы что верю, но и сказать что не верю не могу :)

Re: Помощь по Delphi Как можно отправить смс на любой украинский оператор с помощью делфи? Желательно пример. Заранее спасибо :)

Re: Delphi. Drag'n'Drop procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin try ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); except end; end; Вот, пожалуйста :)

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

на счет мирки: проверь чтоб порт был 6669