Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
Excel, a не EXELE. Xls/xlsx
Здесь в условии задачи явная опечатка, т.к. в приведенном случае натуральных решений нет. Если немного изменить условие, например, так:
320(x+1)-310(x+2)+69=0, (x+1 и x+2 - основание системы счисления), то решать можно так:
3*(x+1)²+2*(x+1)-3*(x+2)²-1*(x+2)+69=0
3*(x²+2x+1)+2*(x+1)-3*(x²+4x+4)-(x+2)+69=0
3x²+6x+3+2x+2-3x²-12x-12-x-2+69=0
-5x-9+69=0
x=12
Можно сделать проверку:
3*13²+2*13-3*14²-14+69=0
3*169+26-3*196-14+69=0
507+26-588-14+69=0
602-602=0
Var a,b:real;
<span>begin </span>
<span>writeln('Введите число для угадывания'); </span>
<span>read(a); </span>
<span>writeln('Введите число'); </span>
<span>repeat </span>
<span>read(b); </span>
<span>if b>a then writeln('Меньше'); </span>
<span>if b<a then writeln('Больше'); </span>
<span>until b=a; </span>
<span>writeln('Вы угадали'); </span>
<span>end. </span>