249 (10) + 383 (10) = 632 (10)
2755 (10) + 1931 (10) = 4686 (10)
55 (10) + 59 (10) = 104 (10)
Что такое Интернет и зачем он нужен?
Интернет и его функции
Интернет – это всемирная компьютерная сеть. Она образует в результате соединения тысяч локальных компьютерных сетей (университетских, региональных и т. д. ), а так же компьютеров, подключённых к сети с помощью отдельных каналов связи.
Интернет – это огромное информационное пространство. Благодаря объединению ресурсов миллионов компьютеров, размещённых в различных уголках земного шара, сеть Интернет даёт возможность каждому её пользователю получить доступ к необъятным информационным богатством, позволяющим узнавать самые разнообразные сведения – начиная от прогноза погоды в вашем населённом пункте в конкретное время суток и заканчивая серьёзными аналитическими статьями на самые злободневные темы. Кроме чисто информационной функции, сеть Интернет также предоставляет модем множество дополнительных возможностей, позволяющих общаться посредством текстовой, голосовой и даже видеосвязи, загружать на свой компьютер музыку и видеоролики в популярных цифровых форматах (MPEG - 4, MP3), а также многое - многое другое. Бессмысленно пытаться перечислить здесь всё, что может предоставить Интернет своим посетителям, потому что даже пользователи с многолетним стажем обязательно забудут о какой - то важной и интересной возможности – на столько гигантскими по своему количеству и уникальными по своему разнообразию являются доступные в этой сети функции.
Применение: Синонимами термина «Интернет» являются также слова и словосочетания, как «Глобальная сеть», «Всемирная сеть», «Сеть».
Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
<span>end.
так проще</span>
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Good(s:string):boolean;
begin
var n:=s.Length;
var t:=s.ToCharArray.Distinct;
Result:=false;
foreach var c in t do begin
var k:=0;
for var i:=1 to n do
if s[i]=c then k+=1;
if k=3 then begin Result:=true; Break end
end;
end;
begin
var aw:=ReadlnString('Ведите строку:').ToWords;
var aw2:=aw.Where(w->Good(w));
aw2.Println;
end.
<u>Пример</u>
Ведите строку: корова барометр молоко длинношеее перемена соответствие кровообращение молоковоз борода
молоко длинношеее перемена соответствие кровообращение
Var i,j,k,n: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> i:=1; k:=0;
</span><span> repeat
</span><span> j:=i;
</span><span> repeat
</span><span> k:=k+1;
</span><span> writeln(i,' ',j,' ',n-i-j);
</span><span> j:=j+1;
</span><span> until j>(n-i) div 2;
</span><span> i:=i+1;
</span><span> until i>n div 3;
</span><span> writeln('всего вариантов: ',k);
</span><span>end.
</span>
n = 10
<span>1 1 8
</span><span>1 2 7
</span><span>1 3 6
</span><span>1 4 5
</span><span>2 2 6
</span><span>2 3 5
</span><span>2 4 4
</span><span>3 3 4
</span><span>всего вариантов: 8
</span><span>
</span>