В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
yuliyabondar2
yuliyabondar2
11.08.2020 15:24 •  Информатика

Какова функция заголовка в документе для чего используются объекты в Word Как разместить объекты ворд Арт в документе Как вставить рамку в документе Какие типы границ бывают Расскажите о шаблонах заголовков в MS Word

Показать ответ
Ответ:
fernandus
fernandus
28.06.2020 12:03

===== PascalABC.NET =====

type

 Vector = array of real;

function operator +(a, b: Vector): Vector;

   ExtensionMethod := a.Zip(b, (p, q) -> p + q).ToArray;

function operator -(a, b: Vector): Vector;

   ExtensionMethod := a.Zip(b, (p, q) -> p - q).ToArray;

function operator *(s: real; a:Vector): Vector;

   ExtensionMethod := a.ConvertAll(p -> p * s);

begin

 var a: Vector := ReadArrReal('Вектор a:', 3);

 var b: Vector := ReadArrReal('Вектор b:', 3);

 var c: Vector := ReadArrReal('Вектор c:', 3);

 var k := ReadReal('k =');

 Println(k * (a + b) + (1 - k) * (a + c))

end.


Даны три трехмерных вектора a, b и c , заданные своими координатами, вещественное число k. найти век
0,0(0 оценок)
Ответ:
matsunichivan
matsunichivan
08.09.2020 20:10

Program n1;  

var q,w,e:integer;  

a:array [1..25]of integer;  

begin

 for q:=1 to 25 do begin            

a[q]:=random(30);  

 write(a[q],' ');  

 end;

end.

Program n2;  

var q:integer;  

a:array [1..30]of integer;  

begin

 a[1]:=5;

   writeln(a[1],' ');

 for q:=2 to 26 do begin            

a[q]:=a[q-1]+5;  

 writeln(a[q],' ');  

 end;

end.

Program n3;  

var q:integer;  

a:array [1..15]of integer;  

begin

 for q:=1 to 15 do begin            

a[q]:=random(30)-50;

 writeln(a[q],' ');  

 end;

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота