A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"
Program skorohodov20001;var a: integer ; Begin a:=0; writeln ('BBedite 4islo'); readln (a); if (a> 3) and (a < 11) then begin writeln('Prinodleshit') end else begin writeln('Ne prenodleshit') ; end; end.
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
То средние значение от B3 до B8 поделим на 2
240\6=40 это ответ выполненный после твоей формулы
Лукас мне:3