Это не знак деления, а двоеточие.
В программировании знаком деления является косая черта дроби "/".
При выводе данных можно указать, сколько ячеек (знако-мест) на экране следует отвести для выводимого значения. Это бывает полезно, если, например, ты выводишь на экран таблицу. в которой все элементы должны иметь одну ширину.
writeln(x:4:1,' | ',y:5:2);
Здесь под дробное число x (икс) выделяется четыре знако-места. При этом значение икса округляется до одного знака после запятой. Этот один знак будет выводиться в любом случае — даже если икс целый.
Например, если x = 3, то на экран он выведется так: _ 3 . 0
_ — это как бы пробел.
Для значения y (игрек) выделяется пять знако-мест, а округление идет до двух знаков после запятой.
Например: _ 4 . 1 5
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 = 0) then
begin
if (M[i] mod 2 = 0) then
begin
sum := sum + M[i];
end;
end;
end;
writeln('Вывод : ' , sum - M[0]);
readln;
end.
Объяснение: ответ к первой части.В общем: в этой программе 0 не считается чётным числом, поэтому 0-вой индекс, даже если его число чётное - не считается . Если вы с этим не согласны то вам всего лишь нужно из этой строчки: writeln('Вывод : ' , sum - M[0]); сделать writeln('Вывод : ' , sum);
Вторая задача :
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 <> 0) then
sum := sum + M[i];
end;
writeln('Вывод : ' , sum);
readln;
end.
x, sum, temp, cosx: Double;
begin
ReadLn(x, n);
sum:=0;
cosx:=cos(x);
temp:=1;
for i:=1 to n do begin
temp:=temp*cosx;
sum:=sum+temp;
end;
WriteLn(sum);
end.