Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
Переводишь каждый бит адресса сети в двоичную систему
и каждый бит маски сети , а далее делаешь поразрядную коньюкцию этих двух множителей.
полученный результат переводишь в 10 тичную систему счисления
Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.
Пример:
n = 5
p = 14.641
Если исправить синтаксические ошибки:
<span>Var s,k: integer;
то:
</span>В цикле for k:=1 downto 11 do s:=s+15; начальное значение (1) меньше конечного (15), поэтому тело цикла не выполнится ни разу. Значение переменной s останется равной 10, т.е. на экран будет выведено 10