1) c)<span>=], < идент. 2>,…;</span>
2)c) real;
Ответ:
Длина между пунктами А и F 9.
Я не знаю но думаю если кря кря
Var
S, tmp: real;
n, i: integer;
begin
write('Введите n:');
readln(n);
for i := 1 to n do
begin
tmp := 1 / ((2 * i + 1) * 3);
S := S + tmp;
end;
writeln(S:8:10);
readln;
end.
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.