Var
i, k, n1, n2: integer;
begin
n1 := 0;
n2 := 0;
{предполагается, что нумерация домов начинается с 1}
writeln('Вводите количество жителей в порядке возрастания номеров домов');
writeln('Окончание ввода - по отрицательному значению');
i := 1;
repeat
read(k);
if k > 0 then
begin
if i mod 2 = 0 then n2 := n2 + k
else n1 := n1 + k;
i := i + 1
end
until k < 0;
write(#13#10, 'Большее количество людей проживает на ');
if n1 > n2 then writeln('левой стороне улицы.')
else writeln('правой стороне улицы.')
end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов
Окончание ввода - по отрицательному значению
13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)
Правильный вариант - <span>D) (-b + sqrt(D))/(2*a)</span>
Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))