// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (b,a):=ReadInteger2('Введите границы промежутка:'); if a<b then Swap(a,b); var d:=b mod 4; if d<>0 then // первое число, кратное 4 if b<0 then b+=Abs(d) else b+=4-d; while b<=a do begin Print(b); b+=4 end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var (b,a):=ReadInteger2('Введите границы промежутка:');
if a<b then Swap(a,b);
var d:=b mod 4;
if d<>0 then // первое число, кратное 4
if b<0 then b+=Abs(d) else b+=4-d;
while b<=a do begin Print(b); b+=4 end;
end.
Примеры
Введите границы промежутка: 15 60
16 20 24 28 32 36 40 44 48 52 56 60
Введите границы промежутка: -15 13
-12 -8 -4 0 4 8 12
Введите границы промежутка: 1 19
4 8 12 16