Не заданы значения переменных.
Правильный код:
<span>program Lipov_2;
var a, b, k: integer;
begin
a:=14;
b:=365;
writeln('a=', a);
</span>writeln('b=', b); <span>
k:=a*b;
writeln(a,'*',b,'=', k);
end.</span>
(listBox.SelectedItem as DataRowWiew)[ID_FILM]<span>;</span>
<h2>Ответ:</h2>
Если сложить числа от 1 до 3, то их сумма будет равна 6
<h2>Объяснение:</h2>
1+2+3 = 6
Tab+ctrl jdkid rocbldgsoshsldhdi
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