Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом.
на паскале
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('IP=').ToWords('.');
if a.Length<>4 then
Writeln('Адрес - это четыре числа, разделенные точками')
else begin
var n:integer;
foreach var c in a do begin
if not TryStrToInt(c,n) then begin
Writeln(c,'- не целое число'); exit end
else
if n>255 then begin Writeln(c,' превышает 255'); exit end;
end;
Writeln('IP-адрес корректен')
end
end.
Примеры
IP= 128.16.35.a4
a4- не целое число
IP= 240.127.56.340
340 превышает 255
IP= 34.56.42,5
Адрес - это четыре числа, разделенные точками
IP= 128.0.0.255
IP-адрес корректен
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('IP=').ToWords('.');
if a.Length<>4 then
Writeln('Адрес - это четыре числа, разделенные точками')
else begin
var n:integer;
foreach var c in a do begin
if not TryStrToInt(c,n) then begin
Writeln(c,'- не целое число'); exit end
else
if n>255 then begin Writeln(c,' превышает 255'); exit end;
end;
Writeln('IP-адрес корректен')
end
end.
Примеры
IP= 128.16.35.a4
a4- не целое число
IP= 240.127.56.340
340 превышает 255
IP= 34.56.42,5
Адрес - это четыре числа, разделенные точками
IP= 128.0.0.255
IP-адрес корректен
Ответил yanatabakova
0
один визит ничего не изменит, все решают, лишь единицы не могут
Ответил yanatabakova
0
попробую с вашей задачей как нибудь по своему разобраться
Ответил Аноним
0
Это ваша задача, а не моя)
Ответил yanatabakova
0
ну да
Ответил Аноним
0
САйт кривой - нигде даже не указаны актуальные версии компиляторов
Новые вопросы
Алгебра,
2 года назад
Алгебра,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Химия,
9 лет назад