КОНСОЛЬЩИКИ ЭТО К ВАМ! Проблема в том что у меня PS4,и когда я раздаю интернет с моего Xiaomi Redmi Note 8 Pro,то она не находит мою WIFI.
В списке доступных сетей нету моей точки доступа, а когда вводишь вручную имя сети и пароль, то на стадии, когда пишет," настройки интернета обновлены",нажимаешь "проверить соединение с интернетом" то на самой первой стадии "проверка IP",(ну всмысле найти IP),пишет," не удалось".Что делать и как сделать так чтобы можно было снова раздавать интернет??(Но вот когда мне мама раздаёт,у неё Iphone X,то всё нормально и интернет есть)
// PascalABC.Net 3.0, сборка 1066
const
nn=50;
mm=50;
var
a:array[1..mm,1..nn] of integer;
i,j,m,n,k:integer;
begin
Write('Введите число строк и столбцов массива: '); Read(m,n);
Write('Введите значение, заменяемое нулем: '); Read(k);
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
if i+j=k then a[i,j]:=0;
Write(a[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Введите число строк и столбцов массива: 10 8
Введите значение, заменяемое нулем: 11
*** Исходный массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 -23
-20 24 -13 18 -6 -16 -19 -23
-24 -25 -16 1 0 18 -7 -8
-7 22 19 -6 -25 -6 -23 17
9 -23 -7 18 5 -9 11 16
12 0 -9 8 4 -4 12 -24
-24 -10 13 1 -7 13 21 -6
-9 -14 -21 24 -6 2 -24 11
*** Результирующий массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 0
-20 24 -13 18 -6 -16 0 -23
-24 -25 -16 1 0 0 -7 -8
-7 22 19 -6 0 -6 -23 17
9 -23 -7 0 5 -9 11 16
12 0 0 8 4 -4 12 -24
-24 0 13 1 -7 13 21 -6
0 -14 -21 24 -6 2 -24 11
1)x = (input('x= '))
y = (input('y= '))
z = (input('z= '))
c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))
print(
else:
print
2)uses crt;
var x,y:real;
f1,f2:boolean;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
f1:=(x>2)and(y>3);
f2:=(x>1)and(y>-2);
writeln(f1);
write(f2);
readln
end.
3)uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
5)uses crt;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=40 to 140 do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.