1) С хорошей стороны помогает в промышленности, В учёбе (легче показать график, быстрее найти информацию), помогает для решения сложных задач, общение с близкими 2) С плохой да, в самом деле забирает время, вирусы, перехват данных, цензуры нет. много мошенников и не проверенной информации, зависимость от игр
На паскале.
1)
var i, n, sum : integer;
begin
sum := 0;
for i := 1 to 10 do
begin
readln(n);
sum := sum + n * n;
end;
writeln(sum);
end.
2)
var i, sum : integer;
n : real;
begin
sum := 0;
for i := 1 to 15 do
begin
readln(n);
if n = trunc(n) then sum := sum + 1;
end;
writeln(sum);
end.
3) var n, m, i : integer;
begin
readln(n, m);
for i := n to m do
if i mod 2 = 0 then writeln(i);
end.
4) var n, i : integer;
begin
readln(n);
for i := 1 to n do
if n mod i = 0 then writeln(i);
end.
Модем за секунду передает 2048 бит или 256 байт. Всего надо передать 4096*1024 байт. На это уйдет 4096*1024/256 = 16384 секунды
begin
var a := ArrRandom(30, 10, 99);
a.println;
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
<span>end.
</span>
PascalAbc.NET
var
a,k:longint;
begin
k:=0;
a:=123454;
while a <> 0 do
begin
read(a);
if (a div 10 <=9) and (a div 10 >=1) then
inc(k);
end;
writeln(k);
end.