Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-а...
Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-адреса:
127.0.0.0
192.168.0.01
255.00.255.255
Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом.
Формат входного файла:
На вход программе подается строка длиной не более 15 символов, которая включает цифры и ровно три точки.
Формат выходного файла:
Если строка является правильным IP-адресом, необходимо вывести 1, иначе 0.
Гость
Ответ(ы) на вопрос:
Гостьprogram ip;
var s,s1:string;
i,j,x,err:integer;
f:boolean;
begin
readln(s);
i:=1; j:=1; f:=true;
while (j<4) and f do
begin
while s[i]<>'.' do
begin
s1:=s1+s[i];
inc(i);
end;
val(s1,x,err);
f:=x<256;
delete(s1,1,length(s1));
inc(j);
end;
if f then
begin
while i<=length(s1) do
begin
s1:=s1+s[i];
inc(i);
end;
f:=x<256;
end;
if f then writeln(1) else writeln(0);
end.
Не нашли ответ?
Похожие вопросы