М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Шаша676
Шаша676
10.07.2022 16:37 •  Информатика

Как появился Интернет? Как Интернет попал в Россию? (подробные ответы, для проэкта в 9 классе)

👇
Ответ:
lelyabolsun
lelyabolsun
10.07.2022

Интернет - это Всемирная паутина, глобальное информационное пространство. История появления и развития этой мировой паутины яркая и необычная, ведь уже через 10 лет после своего появления она завоевала множество организаций и стран, которые стали активно пользоваться сетью для работы. Вначале интернет служил исключительно группам исследователей и ученых, вскоре в эту группу втиснулись военные, а после – бизнесмены. После этого популярность интернета быстро разрослась. Пользователей соблазнила быстрота передачи информации, дешевая глобальная связь, множество легких и доступных программ, уникальная база данных и т.д. Естественно, это удобно для фирм, у которых есть филиалы в разных точках земного шара, для транснациональных корпораций, а также для управленческих структур.

4,7(2 оценок)
Открыть все ответы
Ответ:
dariavasilevskayaa
dariavasilevskayaa
10.07.2022

1) Тут в смысле надо тебе интеграл найти если да, то

      

Program Pr2;
uses crt;
procedure arifm(a,b:integer;var s:real);
begin
s:=(a+b)/2;
end;
procedure proiz(var a,b,c:integer);
var i,m1,m2:integer;
begin
m1:=1;m2:=1;
for i:=1 to a do m1:=m1*i;
for i:=1 to b do m2:=m2*i;
if m1>m2 then c:=m1
else c:=m2;
end;
var a,b,c:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
writeln(s);
proiz(a,b,c);
writeln(c);
end.

 

 

2)

Program Pr1;
uses crt;
procedure arifm(var a,b:integer;s:real);
begin
s:=(a+b)/2;
writeln(s:8:3);
end;
var a,b:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
end.

 

 

4,6(82 оценок)
Ответ:
Вольха97
Вольха97
10.07.2022

 

Паскаль

 

 

 

1)Program abc; Uses crt;

var S:integer; a:array [1..10,1..10];

begin 

For i:=1 to 10 do

For j:=1 to 10 do

read(a[i,j]);

writeln; 

begin

S:=0;

For i:=1 to 10 do

For j:=1 to 10 do

if i=j then S:=S+a[i,j];

write('Сумма равна',S)

end.

 

 

2) 

Program abc; Uses crt;

var min:integer;  a:array [1..10,1..10]; 

begin 

For i:=1 to 10 do

For j:=1 to 10 do

read(a[i,j]);

writeln; 

 

 min:=a[1,1];

For i:=1 to 10 do

For j:=1 to 10 do

if a[i,j]<min then min:=a[i,j];

writeln('Минимальный элемент  равен',min);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4,8(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ