1)
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
2)
Var a,b : Real;
Function SrAr(aa,bb :Real) : Real;
Begin
SrAr:=(aa+bb)/2;
end;
Begin
Readln(a,b);
Writeln(SrAr(a,b));
end.
Ответ:
20 1,2 35 134.72
201.235.134.72
АВГБ
Объяснение:
Так как IP-адрес не может иметь в 4 частях числа больше 255, просто подставляем методом перебора подходящие значения
Это не пример а алгоритм, Надо идти по действиям и всё поймёшь