Ответ:
Объяснение:
m=int(input()
a=0
max=-1
while m!=0:
a=a+m
if m>max:
max=m
if m==0:
break
print("сумма набранных очков",a)
print("максимальное число за один вопрос",max)
Var k: integer;
f: Text;
begin
assign(f, 'Task1.in');
reset(f);
readln(f, k);
close(f);
assign(f, 'Task1.out');
rewrite(f);
if (k mod 2 = 0) then
writeln(f, ((k-1) div 2) mod 10)
else
write(f, (k div 2) div 10 + 1);
close(f);
<span>end.</span>