//Так же, если вы используете именно PascalABC.NET, вы можете использовать метод SeqGen(n, first: T, next: T -> T), возвращающий последовательность (в вашем случае, целых чисел), образованную по заданным параметрам.
// 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 (БАГВ).
--- 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.
Объяснение: