350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Const
nm = 50;{максимальная размерность вектора}
var
i, n: integer;
x: array[1..nm] of real;
s: real;
begin
Write('Введите размерность вектора n -> ');
Readln(n);
Write('Вводите координаты вектора через пробел ');
s := 0;
for i := 1 to n do
begin
Read(x[i]);
s := s + sqr(x[i])
end;
Writeln('Длина вектора равна ', sqrt(s):0:4)
end.
Тестовое решение:
Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188
#include <stdio.h>
#include <math.h>
int main(void) {
double a = -3.0, b = 5, h = 0.5;
double x, avg = (a + b) / 2.0; // сразу один раз вычисляем среднее арифметическое
for (x = a; x < b; x += h) { // цикл по точкам x
if (x < avg) {
printf ("x=%-4.1f, f(x)=%f\n", x, sin(x));
}
else {
printf ("x=%-4.1f, f(x)=%f\n", x, cos(x*x));
}
}
return 0;
}
Var a,b:real;
x:real;
begin
write('введите концы отрезка a,b a<b');
read(a,b);
write('введите число х');
read(x);
if (x>=a) and (x<=b) then write(' принадлежит') else write(' не принадлежит');
end.
Объяснение:
Б сказали решить, его и решил..........