S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
1) ответ 0
div - целочисленное деление, выдает целую часть после деления
126 div 10 = 12
mod - выдает остаток от деления
12 на 4 делится без остатка поэтому
12 mod 4 = 0
2) ответ 2, 3 и 4 пункты
div - целочисленное деление, выдает целую часть после деления
так что 15 делить на 15 будет 1
в остальных пунктах при делении будет число меньше 1 и оно обрежется до 0
На паскале
var a, b, c: real; // можно integer
begin
readln (a);
readln (b);
c:=a+b; //или -
writeln (c);
end.