Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
Так как класс сети /29 то маска сети 255.255.255.248
Т.е начальный адрес будет 20.17.0.16 , а конечный 20.17.0.23
Ответ: 20.17.0.23
Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;
Begin
clrscr;
writeln ('Введите X');
readln (x);
IF x<0 then
writeln ('Отрицательное число x=' , x:5:2) Else
Begin
IF x>0 then
writeln ('Положительное число x=' , x:5:2) Else
writeln ('Вы выбрали неверное значение'); End;
readln;<span>
End.</span>
Я сделала так. но я брала 10 . 3. 2.5. 6. 3.5 3. 10. 3. 2.5 6. 2.5 3 т.е в уменшиных клоичествах