Question

Паскаль. Вводится целое число x (50 <= x <= 250), кратное пяти. Выводится убывающая последовательность строк с числами формата: x x - 5 x - 10 ... 50 То есть, нужно от данного числа составить последовательность с "интервалом" в 5. Нельзя использовать массивы и цикл while. Только For. Заранее спасибо!

Answer 1

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

End.