Для создания шара в программе SketchUp Make из кладки выберите инструменты => , нарисуйте круг и расположите его вертикально. (3б до 17.00 сдать надо это сор​

Задание 1:
1) 0.5__ d:=round (5.5)
Оператор round(5.5) выполняет округление числа до ближайшего целого значения. В данном случае, число 5.5 округляется вниз до 5. После выполнения оператора, значение d будет равно 5.

2) 5__ d:=int (5.5)
Оператор int(5.5) возвращает целую часть числа, отбрасывая десятичную часть. В данном случае, целая часть числа 5.5 равна 5. После выполнения оператора, значение d будет равно 5.

3) 6__ d:=frac (5.5)
Оператор frac(5.5) возвращает десятичную часть числа, отбрасывая целую часть. В данном случае, десятичная часть числа 5.5 равна 0.5. После выполнения оператора, значение d будет равно 0.5.

4) 30.25__ d:=sqrt (5.5)
Оператор sqrt(5.5) вычисляет квадратный корень числа. В данном случае, квадратный корень из 5.5 равен примерно 2.34520787991171. После выполнения оператора, значение d будет равно 2.34520787991171.

5) 2.34520787991171__ d:=sqr (5.5)
Оператор sqr(5.5) вычисляет квадрат числа. В данном случае, квадрат числа 5.5 равен примерно 30.25. После выполнения оператора, значение d будет равно 30.25.

Задание 2:
Для задания 2, общими для всех числовых типов являются операции сложения (2) и вычитания (1), так как они применимы как для целых чисел, так и для вещественных чисел. Операции округления (3) и выделения целой части (4) относятся только к вещественным числам.

Задание 3:
1) Из byte в real - возможно.
2) Из byte в integer - возможно.
3) Из real в integer - возможно.
4) Из integer в byte - возможно.

В языке Паскаль возможны все перечисленные 4 неявных преобразования типов данных.

Задание 4:
Операции и функции, выбранные только для целочисленных типов:
2) int - возвращает целую часть числа, отбрасывая десятичную часть.
4) div - выполняет целочисленное деление, возвращая целую часть от деления.

Операция frac (1) возвращает десятичную часть числа, отбрасывая целую часть.
Функция random(a) (3) используется для генерации случайных чисел и может быть применена как для целочисленных, так и для вещественных типов данных.

Задание 5:
Оператор a:=int(20.75) вычисляет целую часть числа, отбрасывая десятичную часть. В данном случае, целая часть числа 20.75 равна 20. После выполнения оператора, значение a будет равно 20.

Задание 6:
Функция int (4) преобразует значение вещественного типа в целочисленное значение. Она возвращает целую часть числа, отбрасывая десятичную часть.

Задание 7:
Для генерации случайного целого числа на промежутке от 3 до 100, включая концы, можно использовать следующий оператор: 3+random(98). Функция random(n) возвращает случайное целое число в диапазоне от 0 до n-1. В данном случае, функция random(98) будет возвращать случайное целое число от 0 до 97, и после прибавления 3 получится число от 3 до 100.

Задание 8:
Результат выполнения программы представленной на рисунке будет: Вывод: 5625 (ответ 3). На рисунке необходимо увидеть код программы для точного ответа.

Задание 9:
Оператор t:=274 mod 4 выполняет операцию взятия остатка от деления. В данном случае, 274 делится на 4 равномерно 68 раз без остатка. После выполнения оператора, значение t будет равно 0.

Задание 10:
Алгоритм, в котором присутствует только алгоритмическая конструкция "следование", называется линейным алгоритмом (ответ 1).

Добрый день!

Очень рад, что вы интересуетесь программированием! Буду рад помочь вам решить эту задачу на языке программирования Паскаль.

Для начала, давайте разобьем эту задачу на несколько подзадач и решим их поочередно.

1. Запись N действительных чисел в файл.

Для этого нам нужно создать переменную типа file, открыть файл для записи и попросить пользователя ввести N чисел. Затем мы будем записывать каждое из этих чисел в файл, каждое на отдельной строке.

Пример кода:
```pascal
program writeNumbersToFile;
var
fileNumbers: text;
number, N, i: integer;
begin
assign(fileNumbers, 'numbers.txt'); // Указываем имя файла, в котором будут храниться числа
rewrite(fileNumbers); // Открываем файл для записи, все предыдущие данные будут стерты

writeln('Введите количество чисел (N): ');
readln(N);

for i := 1 to N do
begin
writeln('Введите число ', i, ': ');
readln(number);
writeln(fileNumbers, number); // Записываем число в файл
end;

close(fileNumbers); // Закрываем файл
end.
```

2. Поиск среднего арифметического положительных чисел в файле.

Для решения этой задачи нам нужно открыть файл для чтения, прочитать каждое число из файла и найти среднее арифметическое положительных чисел. Для этого мы будем суммировать все положительные числа и делить полученную сумму на их количество.

Пример кода:
```pascal
program calculateAverage;
var
fileNumbers: text;
number, sum: real;
count: integer;
begin
assign(fileNumbers, 'numbers.txt');
reset(fileNumbers); // Открываем файл только для чтения

sum := 0;
count := 0;

while not eof(fileNumbers) do
begin
readln(fileNumbers, number);
if number > 0 then
begin
sum := sum + number;
count := count + 1;
end;
end;

writeln('Среднее арифметическое положительных чисел: ', sum / count);

close(fileNumbers);
end.
```

3. Нахождение суммы чисел, предшествующих первому отрицательному числу в файле.

По аналогии с предыдущей задачей, мы откроем файл для чтения, прочитаем числа по очереди и будем суммировать их до тех пор, пока не встретим первое отрицательное число.

Пример кода:
```pascal
program calculateSum;
var
fileNumbers: text;
number, sum: real;
foundNegativeNumber: boolean;
begin
assign(fileNumbers, 'numbers.txt');
reset(fileNumbers);

sum := 0;
foundNegativeNumber := false;

while not eof(fileNumbers) and not foundNegativeNumber do
begin
readln(fileNumbers, number);
if number >= 0 then
begin
sum := sum + number;
end
else
begin
foundNegativeNumber := true;
end;
end;

writeln('Сумма чисел, предшествующих первому отрицательному числу: ', sum);

close(fileNumbers);
end.
```

4. Формирование файла последовательности чисел по формуле.

Здесь нам нужно считать числа из исходного файла, вычислить по формуле и записать результат в новый файл.

Пример кода:
```pascal
program createSequence;
var
inputNumbers, outputNumbers: text;
xk, yk: real;
k: integer;
begin
assign(inputNumbers, 'numbers.txt');
assign(outputNumbers, 'sequence.txt');
reset(inputNumbers);
rewrite(outputNumbers);

k := 1;

while not eof(inputNumbers) do
begin
readln(inputNumbers, xk);
yk := xk * xk + xk;
writeln(outputNumbers, yk);
k := k + 1;
end;

close(inputNumbers);
close(outputNumbers);
end.
```

Это решение состоит из 4 отдельных программ, каждая из которых выполняет свою часть задания. Перед запуском каждой программы обязательно сохраните введенные вами числа в файле 'numbers.txt' (напишите каждое число с новой строки).

Надеюсь, что это подробное пособие помогло вам понять решение этой задачи. Если у вас возникнут какие-либо вопросы или затруднения, не стесняйтесь обращаться ко мне за помощью. Удачи в изучении программирования!