1 процессор
2 монитор
3 память
4 джойстик
5 винчестер
6 принтер
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
IP - адрес формируется из четырех частей, каждая часть не может быть больше 255
Значит:
1) 168.254.149.154
БГАВ
2) 145.156.140.64
АГБВ