Неверен b). IP-адрес должен содержать четыре октета, т.е. четыре числа а диапазоне 0-255, разделенных тремя точками.
Неверен с). Первый октет превышает 255.
Неверен d) Третий октет превышает 255.
Неверен e) Четвертый октет превышает 255
Поэтому допустимый IP-адрес только a)
Program n_1;
uses math;
var i, n, m, a, kol, j:int64;
begin
readln(n);
kol:=0;
a:=n;
while a<>0 do begin
a:=a div 10;
kol:=kol+1;
end;
m:=n mod 100;
for i:=1 to kol-1 do begin
if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;
n:=m div 10;
end;
writeln(m);
end.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.
Байты, КилоБайты, МегаБайты и т.д
1 байт = 8бит
1 килобайт = 1024 байт
Вот, с тех пор, как я оптимизировал работу со сканером, я полюбил блок-схемы х)
Иероглифы обозначали целые слова и слоги, их было более 750