1)Выбери верный ответ. Координирует развитие всемирной сети общественная организация . 1/глобальная сеть 2/модем 3/Сообщество Интернета 4/локальная сеть 2)Сотруднику фирмы продиктовали по телефону IP-адрес компьютера. Молодой человек адрес записал, но не поставил разделительные точки: 100708317. Восстанови исходный IP-адрес. ответ: . . . 3)Преимущества электронной почты: 1/В случае недоставки письма отправитель не получает уведомление об этом с объяснением причин. 2/В случае недоставки письма отправитель получает уведомление об этом с объяснением причин. 3/Электронная почта надежнее, дешевле, быстрее обычной почты. 4/Электронная почта надёжнее, дешевле, медленнее обычной почты. 4)Выбери верные ответы. Службы Интернета: 1/Общение в реальном времени 2/Электронная почта 3/системы 4/блоки питания 5)Определи какую фразу будет искать поисковик, если за столица Берлина". Берлин столица Германии столицы столица Берлина Берлин 6)На главной странице веб-сайта размещают: название сайта тематическое графическое изображение длинный текст с описанием содержания сайта никаких изображений
Ответы
//Pascal ABC.NET v3.0 сборка 1111
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Визначити, які значення на будуть змінні а та б цілого типу, після виконання наступних дії:
Автор: Mikhailovich_Viktoriya
Записать в двоичной системе счисления число, следующее за числом 10101(2)
Автор: arnika-ooo1
Создание конуса, цилиндра и сферыВыбери тела вращения.Верных ответов: 2
Автор: m-zolotukhina2
Як визначити товшіну та колір лінії, інформатика
Автор: zigrin
Составить программу вычисления выражения: max(x^2+y^3, y^2+z^3)-4
Автор: Ольга1520
Const
n=5;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('Matrix reading...');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
readln(ma[i,j]);
end;
writeln('First matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(ma[i,j]:4);
if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
end;
end;
writeln;
writeln('Final matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(ma[i,j]:4);
end;
end.
Пример ввода:
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
Пример вывода:
First matrix:
1 2 3 4 5
6 7 8 9 1
2 3 4 5 6
7 8 9 1 2
3 4 5 6 7
Final matrix:
1 2 3 4 5
6 49 64 81 1
2 3 4 5 6
49 64 81 1 2
3 4 5 6 49