// 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 Адрес - это четыре числа, разделенные точками
По горизонтали: 1. Основное устройство ввода информации. 2. «Мозг» компьютера. 3. Устройство вывода информации. 4. Устройство хранения программ и данных. 5. Устройство для быстрого перемещения по экрану и выбора информации. 6. Устройство ввода, используемое для управления компьютером во время игры. 7. Другое название жёсткого диска. 8. Устройство, с которого можно вывести на бумагу тексты и рисунки.
По вертикали: 1. Основной инструмент сбора, хранения и переработки информации.
ответы на кроссворд Устройства компьютера: По горизонтали: 1. Клавиатура. 2. Процессор. 3. Монитор. 4. Память. 5. Мышь. 6. Джойстик. 7. Винчестер. 8. Принтер. По вертикали: 1. Компьютер.
// Внимание! Если программа не работает, обновите версию!
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-адрес корректен