Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s
При беге S=vt, ходьбе S=v1*t1, S одинаково, t1=vt/v1=3*t -ответ
Значение функции F всегда больше нуля.
цикл будет выполняться от -20 до 0 двадцать раз
0 двадцать первый раз
от 0 до 20 ещё двадцать
Итого Сорок один