PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
1) Понятно, что первое такое число - это -3. А дальше - через 3...
begin
Range(-3,-21,-3).Println
end.
Результат
-3 -6 -9 -12 -15 -18 -21
2) Первое четное положительное - это 2. И через два дальше...
begin
var n:=2;
while n<=20 do begin<br> Write(n,' ');
n+=2
end;
Writeln
end.
Результат
2 4 6 8 10 12 14 16 18 20