Решите задачу в программе PASCALABC.NET (вместо 17 выводится рандомное значение

--- PascalABC.NET 3.6.2 ---

//С циклом 'For'

begin

 var temp := 1;

 var len := readinteger();

 for var i := 1 to len do begin

   temp.Print;

   temp+=2;

 end;

end.

//Так же, если вы используете именно PascalABC.NET, вы можете использовать метод SeqGen(n, first: T, next: T -> T), возвращающий последовательность (в вашем случае, целых чисел), образованную по заданным параметрам.

begin

 SeqGen(readinteger(), 1, p -> p + 2).Println;

end.

Объяснение:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше

IP-адрес состоит из целых чисел, разделённых точками, причём эти числа не должны превышать 255.

Так как только перед числом 30 (Б) стоит точка, то оно должно стоять в конце, ведь иначе из него будут получаться числа, которые больше 255.

С Г начинать мы тоже не можем, ибо при присоединении к нему А или Б будет число, превышающее 255. 

Если начинать с А, то к ней нужно будет присоединять Г (ибо при остальных вариантах будет > 255). Так как В на последней позиции, то придётся совмещать Г и Б, а тогда получается слишком большое число.

Значит, начинаем с Б.

Получается, возможен только 1 вариант: 222.125.121.30 (БАГВ).