Телеконференции (Netnews, Newsgroups), наряду с электронной почтой и FTP, относятся к "классическим" видам сервиса Internet.электронная почта (E-mail), обеспечивающая возможность обмена сообщениями одного человека с одним или несколькими абонентами;
телеконференции, или группы новостей (Usenet), обеспечивающие возможность коллективного обмена сообщениями;
сервис IRC, предназначенный для поддержки текстового общения в режиме реального времени (chat);
сервис ICQ, предназначенный для обмена мгновенными сообщениями между двумя пользователями. Совсем недавно были разработаны ICQ-чаты, позволяющие сразу нескольким пользователям ICQ обмениваться мгновенными сообщениями.
Интернет-телефония, или по-другому IP-телефония, обеспечивающая передачу речевых сигналов по сети между пользователями.
const
IN_FILENAME = 'INPUT.txt';
OUT_FILENAME = 'OUTPUT.txt';
var
fileIn,fileOut: TextFile;
s,t: string;
begin
writeln('Загружаю входные данные...');
t := '';
AssignFile(fileIn, IN_FILENAME);
AssignFile(fileOut, OUT_FILENAME);
reset(fileIn);
while not eof(fileIn) do
begin
readln(fileIn, s);
if (s = '0') then
break
else
t := t + s;
end;
CloseFile(fileIn);
rewrite(fileOut);
writeln(fileOut, Length(t));
CloseFile(fileOut);
end.