Question

Задание по программированию pascal
Вывести все четные числа кратные 4 из промежутка от b до a
написать программу и алгоритм

Answer 1

// 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.

Примеры
Введите границы промежутка: 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

Answer 2

Верю, что не все. Но недостаток образования - это их проблемы, точнее, их беда. Если нужно под конкретную версию Паскаля - надо указывать, ибо как их минимум 6 диалектов. Кого в ступор вводит модуль - тем надо в коррекционную школу.

Answer 3

Ты не оскорбляй народ. Znanija для этого и нужны, чтобы понять и разобраться! Получается что ты стремишься не помогать, а именно показать себя.

Answer 4

Операцию mod учат все. Одну из первых в целочисленной арифметике. Кто её не может понять - не должен учиться в одном классе с нормальными детьми.

Answer 5

То что знаешь ты - не означает что должны знать все. И мы не обязаны знать каждый предмет на идеально, мы выбираем себе в профиль те, с которыми ты хочешь связать свою жизнь. Щас начнется лепет про 21 век и бла, бла, бла, но программировать не всем нужно

Answer 6

и я не знаю почему говорилось про MOD, когда я про него ничего не говорил. Ты просто так оскорбил таких людей.