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

Вставте пропущенные буквы а) Пристрої, доступ до яких можна отримати в мережі, складають ресурси, а програми та документи - ресурси мережі.
б) Мережна взаємодія полягає в надсиланні від одних комп'ютерів мережі іншим комп'ютерам та отриманні у відповідь послуг з до певних ресурсів.
в) Комп'ютери, які надають чи за відповідними іншим комп'ютерам, називають .
г) - це комп'ютер у мережі, що використовує сервера.

👇
Открыть все ответы
Ответ:
женьшенье
женьшенье
03.09.2020
{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
   input: text;
   n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do 
  begin
  read (input, n1);
  inc (sum, n1);
  end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.

{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
  begin
  read (input, ch);
  inc (n);
        if eoln(input) then readln(input);
 end;
close (input);
write ('Символов в файле: ', n);
end.

{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
   input: text;
   n, i: longint;
   ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
 begin
 read (input, ch);
 inc (n);
       if eoln(input) then
       begin
       readln(input);
       inc (i);
       writeln ('Символов в ', i, ' строке: ', n);
       n:=0;
       end;
end;
close (input);
end.
4,6(2 оценок)
Ответ:
vvkim87
vvkim87
03.09.2020
Var
a,b,c,p:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
Write('c = ');Read(c);
if (a<b+c)and(b<a+c)and(c<a+b) then
Begin
if (a=b)and(a<>c) then Write('Треугольник равнобедренный, ')
else if (a=b)and(b=c) then Write('Треугольник равносторонний, ')
else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then Write('Треугольник прямоульный, ')
else Write('Треугольник никакой, ');
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('его площадь равна ',a);
End
else Write('Треугольник не существует')
End.
4,5(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ