Program pr1;
var x,y, nod:integer;
begin
readln(x,y);
repeat
if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln('НОД=', nod);
<span>end.
program pr2;
var i,n,sum:integer;
begin
readln(n);
sum:=1;
for i:=1 to n do
if i mod 2 = 0 then inc(sum,i);
writeln(sum);
<span>end.</span></span>
Var s,n:integer;
begin
repeat
readln(n);
if (n mod 3=0) and (n<10) then s:=s+n;
until n=0;
writeln('S=',s);
<span>end.</span>
Это 35 вроде, но на всякий случай проверь
26 это получается маска подсети будет 255.255.255. 192
С этой маской может быть в подсети всего 62 компьютера + 2 адреса уходят на адрес сети и широковещательный адрес = всего 64
В этом диапозоне IP адресов 217.71.136. 0 - 217.71.136. 255 может быть 4 подсети
217.71.136. 0 - адрес сети, 217.71.136. 63 - широковещательный адрес
217.71.136. 64 - адрес сети, 217.71.136. 127 - широковещательный адрес
217.71.136. 128 - адрес сети, 217.71.136. 191 - широковещательный адрес
217.71.136. 192 - адрес сети, 217.71.136. 255 - широковещательный адрес
Программа на скриншоте
Python 3