Question

(Pascal) Вывести все нечётные числа кратные пяти в диапазоне от 10 до 100. Обязательно использовать repeat и until.

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=10;
  repeat
    if n.IsOdd and (n mod 5=0) then Print(n);
    n+=1
  until n>100
end.

Результат
15 25 35 45 55 65 75 85 95

Answer 2

Вывод нечётных чисел, кратных пяти, в диапазоне от 10 до 100 в Pascal

Для решения данной задачи в Pascal и использования цикла `repeat` и `until`, можно использовать следующий код:

program OddMultiplesOfFive;
var
  num: integer;
begin
  num := 10;
  repeat
    if (num mod 2 = 1) and (num mod 5 = 0) then
      writeln(num);
    num := num + 1;
  until num > 100;
end.

В этом коде мы инициализируем переменную `num` значением 10 и используем цикл `repeat` и `until`, чтобы проверить все числа в диапазоне от 10 до 100. Внутри цикла мы проверяем, является ли число нечётным и кратным пяти. Если это условие выполняется, мы выводим число на экран с помощью `writeln`. Затем мы увеличиваем значение `num` на 1 и продолжаем цикл, пока `num` не станет больше 100.

Пояснение кода

- `num mod 2 = 1` - проверка на нечётность числа. Оператор `mod` возвращает остаток от деления числа на другое число. Если остаток равен 1, значит число нечётное. - `num mod 5 = 0` - проверка на кратность пяти. Если остаток от деления числа на 5 равен 0, значит число кратно пяти.

Пример вывода

15
25
35
45
55
65
75
85
95

Обратите внимание: Этот код выводит все нечётные числа, кратные пяти, в диапазоне от 10 до 100. Если вам нужно вывести только числа, которые строго больше 10 и меньше 100, вы можете изменить условие в цикле `repeat` и `until` на `num < 100`.