Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом. на паскале

Question

Михаил Титов

Информатика

5 января, 02:24

Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом. на паскале

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Павел Волков · Answer 1

begin var a:=ReadlnString ('IP='). ToWords ('.'); if a. Length4 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.