Дана ненулевая последовательность целых чисел, заканчивающаяся нулем. Вывести на экран все числа
этой последовательности, которые больше нуля и
делятся на 3.
Program posledovat;
Var a:integer;
Begin
Writeln (‘введите первый член последовательности’);
Readeln (a);
Repeat
If (a>0) and (a mod 3 =0) then
Writeln (a)
Until a=0;
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.

ответ: 400

Объяснение:

Мистер Фокс находится на 1999 этаже. Узнаем, на каких ближайших этажах останавливается грузовой лифт. Остаток от деления 1999 на 7 равен 4. Значит лифт останавливается тремя этажами ниже и четырьмя этажами выше (где остаток от деления номера этажа на 7 равен 1).

Вариант первый: холодильник доставляют на 1996 этаж (1999-3). В таком случае, за подъём по лестнице придётся заплатить 450 рублей (150×3).

Вариант второй: холодильник доставляют на 2003 этаж (1999+4). В таком случае, за спуск по лестнице придётся заплатить 400 рублей (100×4).

Итак, как можно увидеть, наименьшая сумма, которую придётся заплатить, равна 400 рублей.