Паскаль. Вводится целое число x (50 <= x <= 250), кратное пяти. Выводится убывающая...

Question

Паскаль. Вводится целое число x (50 <= x <= 250), кратное пяти. Выводится убывающая последовательность строк с числами формата:<br> x
x - 5
x - 10
...
50

То есть, нужно от данного числа составить последовательность с "интервалом" в 5. Нельзя использовать массивы и цикл while. Только For. Заранее спасибо!

Comments

А циклы For и Repeat можно?

---

Только For

---

Такое решение подойдёт?

Answer 1

Var
A:byte;
Begin
Write('Введите число, кратное 5 (50 <= Число <= 250): ');<br>ReadLn(A);
For A:= A downto 50 do
    if A mod 5 = 0 then WriteLn(A);

End.

Comments

Спасибо! Подходит)