ПОЛЬЗА ОТ ИНТЕРНЕТА .
Интернет облегчает жизнь многим людям. В работе человека он очень практичный и удобный, если раньше данная работа выполнялась в течение двух, а то и трех дней, то сегодня с мировой сети можно сделать всю работу всего за час.
Многие люди инвалиды могут теперь только с компьютера и наличии интернета выполнять работу дома и тем самым зарабатывать себе на жизнь.
Интернет так же выполняет познавательную роль, вы можете путешествовать по всему миру, не отходя от своего компьютера. Перед вами открывается весь земной шар со своими райскими уголками. Теперь не нужно тратить кучу денег и покупать различные энциклопедии, достаточно только открыть поисковую систему и прописать интересующий вас вопрос.
Конечно, нельзя не отметить и развлекательную функцию интернета. На сегодня существует множество онлайн игр, форумов по интересам и много другого.
ФАМИЛИЯ X Y Z
где X,Y,Z - оценки.
1. Современное решение в пять строчек (по сути - один оператор)
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('out.txt',ReadLines('in.txt').
Select(s->s.Split).Where(x->(x[1]<>'3') and (x[2]<>'3') and (x[3]<>'3')).
Select(x->x[0]).JoinIntoString(NewLine))
end.
2. Классическое "школьное решение" в стиле языка Турбо Паскаль тридцатилетней давности
var
s,f:string;
p:integer;
f1,f2:Text;
begin
Assign(f1,'in.txt');
Assign(f2,'out.txt');
Reset(f1);
Rewrite(f2);
while not Eof(f1) do begin
Readln(f1,s);
p:=Pos(' ',s);
f:=Copy(s,1,p-1);
if (s[p+1]<>'3') and (s[p+3]<>'3') and (s[p+5]<>'3') then
Writeln(f2,f)
end;
Close(f1);
Close(f2)
end.