// 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 writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
4 ответ
Объяснение: