var
x, y: real;
begin
read(x);
y := 2 * cos(x) - tan(x);
x := 4 * x * 4 * 4 * x * x - 5 * x * x * 5;
writeln('y = ', y, ' / ', x, ' = ', y / x);
writeln('Вторая задача = ', abs(x * x * x - 5));
end.
Номер 10
а.)В 8 часов
б.)Названия городов пишутся с прописной буквы.
в.)Не заканчивается нулём.
Номер 11
У Кати 5,у Люды - 4.у Аллы - 3.
1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.
<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
18.
Должна быть операционная система windows, т.к. у нее и MS Office один производитель: microsoft
19. Для подключения системного блока в сеть разъем 1 (Блок питания)
20. Принтер