// 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 Адрес - это четыре числа, разделенные точками
а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.
б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.
в. Формирование у пользователей компьютера навыков печати десятипалым методом.
г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.
// Внимание! Если программа не работает, обновите версию!
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-адрес корректен
Лишние словосочетание выделено жирным шрифтом :
а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.
б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.
в. Формирование у пользователей компьютера навыков печати десятипалым методом.
г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.