ANTICHAT — форум по информационной безопасности, OSINT и технологиям

+1

Мля, POS_troi, оформляй сложные формулы в формате LaTeX )), или по крайней картинкой пость

нужен чат на делфи по тсп/айпи протоколу,чтобы были отдельно клиент и сервер,поддерживалось:пере дача файлов,смайлы,изменение шрифта,пароли и тп,или хотя бы что-то
и чтобы чат использовал стандартные средства делфи
плиз,дайте ссылу на исходники или отошлите на меил sinayi@mail.ru
ЗАРАНЕЕ СПАСИБО!

зы гуглил-все нето(((

2-krypt3r
Извиняюсь, я не ученый

2 Sinay -> http://articles.org.ru/cfaq/index.php?qid=961&catid=31
http://www.planet-source-code.com/UR...!7/anyname.htm
http://kerosinka.ru/node/17

имеется файл 1.txt с содержимым
123
1234
12345
...
Нужно считать файл 1.txt и ввести перед этими цифрами любые буквы
пример:
a 123
a 1234
a 12345

(При этом символы перед цифрами вводить нужно с клавиатуры)
Программа на С++

а язык какой?

а да) на С++

нужно добавить чтоб когда запускаешь показывало сколько нулей справа от диагоналей в матрице ( язык турба паскаль)

Program gdfg;
uses crt;
var i,j,n,m,min,k : integer;
t : array [1..100,1..100] of integer;
begin
clrscr;
write('vvedite kol-vo stolbcov = ');
readln(m);
write('vvedite kol-vo rjadkov = ');
readln(n);

for i:=1 to n do
for j:=1 to m do begin
write('vvedite ',i,' ',j,' znachenie = ');
readln(t[i][j]);
end;

for i:=1 to n do begin
for j:=1 to m do write(t[i][j]:4);
writeln;
end;
writeln;

k:=0;
min:=t[n-1][1];
for i:=1 to n do
for j:=1 to m do begin
if ((i<=(m-j)) and (i>j) and (t[i][j]=0)) then k:=k+1;
if ((i>(n-2)) and (t[i][j]<min)) then min:=t[i][j];
end;

if min=0
then writeln('deystvie nevozmozhno')
else writeln(k/min:8:4);
readln;
end.