Для чего используют локальные сети

Знания

Информатика

1 ответ:

Оля Олечка [17]4 года назад

0 0

Для передачи информации между компьютерами включеных в одну сеть

Читайте также

Пожалуйста помогите побыстрее))))) 1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму

Вероника11111 [7]

1) const
n = 25;

var
a :array[1..n] of integer;
i, kol, sum :integer;

begin

randomize;
for i:= 1 to n do
    a[i]:= random(50);

sum:= 0; kol:= 0;
for i:= 1 to n do
    if a[i] mod 2 = 0 then
    begin
      inc(kol);
      sum:= sum + a[i];
    end;

end.

2) const
n = 25;

var
a :array[1..n] of integer;

begin

randomize;
for i:= 1 to n do
    a[i]:= random(50);

for i:= 1 to n do
    if a[i] mod 2 = 0 then
      a[i]:= sqr(a[i])
    else
      a[i]:= a[i] * 2;

end.

0 0

4 года назад

Составить блок-схему для задания. Дан массив из N целых чисел. Выяснить, какое число встречается в массиве раньше – положительно

Агеевич

Основные данные:
N[x] - некий массив натур чисел в котором будет искаться положит или отриц число
x - размер массива
k - переменная-счетчик
// N[k] - обращение к k-тому элементу массива

Выходные данные:
"+" - первое число положительное
"-" - первое число отрицательное

Блок-схема на фото:

0 0

4 года назад

(По нескольким определениям отгадайте термин информатики Текстовое, числовое, денежное, ключевое, логическое ̶ … Ответ записать

remmi2092 [7.2K]

Поле,скорее всего
...

....
....

0 0

1 год назад

Помогите решить.паскаль1)найти сумму целых двузначных чисел. 2)найти произведение целых чисел от 3 до n

Аконитин

1) var a,b,s :real;
begin
readln(a,b);
s:=a+b;
write(s);
end.
2)несовсем понятно
var a,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a:=3*i;
write(a);
end; end.

0 0

4 года назад

Помогите пж написать решения. ОЧЕНЬ СРОЧНО НАДО!!! ПОЖАЛУЙСТА

Рустам35

1 - а2 - а3 - а4 - б дальше хз

0 0

3 года назад