Program x;
var a, i, b:integer;
Begin
a:=10;
b:=0;
for i:=1 to 10 do begin
if (a mod 2)=1 then b:=b+a;
a:=a+1;
end;
write(b);
End.
Заметим, что если сейчас n точек, то добавится n - 1 точка.
Таким образом, на предпоследнем шаге было (65 + 1) / 2 = 33 точки.
3) 65
2) 33
1) 17
0) 9
Ответ: 9 точек
Первое - каска
Второе -тяжесть
Зрителельная ,тактильная ,вкусовая,слуховая
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"