Решение - в прилагаемом файле.
1.1) Формула используется для вычисления стоимости (один вариант)
1.2) Формула может использоваться для вычисления времени в пути, скорости и длины пути (три варианта). Оставшиеся два значения - числа.
2. Таблица 2 (см. рисунок)
N=vt;
<span>N = 128000 бит/с * 90 с = 11520000 бит - вес файла. </span>
<span>16 бит * 400 симв = 6400 бит - вес одной страницы. </span>
11520000/6400 = 1800 стр.
Ответ:<span> 1800 </span>
Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
Ответ: writeln(a,'+',b,'=?');
Значения, которые не являются переменными, выводятся в '' скобочках.
Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
<span>End.</span>