Надо " A умножить на A " Например: А = 4 сантиметра . Надо 4 умножить на 4 равно 16 квадратных сантиметров.
1*2^3+1*2^2+0*2^1+1*2^0=8+4+1=13
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
Большее количество людей проживает на левой стороне улицы.
<span>Если первый — гном, то в силу его слов второй и третий — лешие, что невозможно из-за высказывания второго жителя леса. Значит, первый — леший. Если второй — леший, то в силу его слов третий тоже леший, но тогда первый сказал правду, а он должен был соврать. Значит, второй — гном. В силу его слов третий тоже гном. Третий получается честно : ''а) один''.</span>
Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>