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

Ляяять, объясните вот как у человека 1942 года, в момент полных 60 лет (2002),
может быть 3 внука

👇
Ответ:
yulechkapopova4
yulechkapopova4
04.10.2020

Объяснение:

у него было 3 дочери чего не понятно

4,6(96 оценок)
Открыть все ответы
Ответ:
Сонечка2155
Сонечка2155
04.10.2020

1.Компьютерная сеть  — система, обеспечивающая обмен данными между вычислительными устройствами — компьютерами, серверами, маршрутизаторами и другим оборудованием или программным обеспечением.

виды: локальная вычислительная сеть (ЛВС); - региональная вычислительная сеть (РВС); - глобальная вычислительная сеть (Internet).

2.Сетевая тополо́гия — это конфигурация графа, вершинам которого соответствуют конечные узлы сети и коммуникационное оборудование, а рёбрам — физические или информационные связи между вершинами.

Виды:Шина

Звезда

Кольцо (Ring)

Ячеистая топология

3.Канал связи  — система технических средств и среда распространения сигналов для односторонней передачи данных (информации) от отправителя (источника) к получателю (приёмнику).

виды: По типу среды распространения каналы связи делятся на проводные, акустические, оптические, инфракрасные и радиоканалы.

4,5(87 оценок)
Ответ:
milashka455
milashka455
04.10.2020
Вот программа
С использованием файлов
program proizvedenie;
uses crt;
var a:array[1..1000] of real;   
amax,amin,p:real;   
i,n,i1,i2:integer;    inp,outp:text;
begin
assign(inp,'input.txt');
assign(outp,'output.txt');
readln(n);
p:=1;
reset(inp);
for i:=1 to n do
read(inp,a[i]);
close(inp);
amin:=a[1];
for i:=1 to n do
if abs(amin)>=abs(a[i]) then begin
amin:=a[i]; i1:=i;
end;
amax:=a[1];
for i:=1 to n do
if abs(amax)<=abs(a[i]) then begin
amax:=a[i]; i2:=i;
end;
if (i2>i1) and (i1+1<>i2) then
for i:=i1+1 to i2-1 do
p:=p*a[i] else
if (i1>i2) and (i1-1<>i2) then
for i:=i1-1 downto i2+1 do
p:=p*a[i] else begin
write(0); exit; end;
rewrite(outp);
write(outp,p);
close(outp);
end.
Без файлов
program proizvedenie;
uses crt;
var a:array[1..1000] of real;   
 amax,amin,p:real;   
i,n,i1,i2:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
read(a[i]);
amin:=a[1];
for i:=1 to n do
if abs(amin)>=abs(a[i]) then begin
amin:=a[i]; i1:=i;
end;
amax:=a[1];
for i:=1 to n do
if abs(amax)<=abs(a[i]) then begin
amax:=a[i]; i2:=i;
end;
if (i2>i1) and (i1+1<>i2) then
for i:=i1+1 to i2-1 do
p:=p*a[i] else
if (i1>i2) and (i1-1<>i2) then
for i:=i1-1 downto i2+1 do
p:=p*a[i] else begin
write(0); exit; end;
write(p);
end.

Ошибки:
1)В разделе описания переменных var нет файловых переменных input и output;
2)В строке 24 нет begin...end;
3)Сравнивать нужно модули переменных amin и amax с модулем a[i];
+++Много лишних переменных
4,4(60 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ