Паскаль. вводится целое число x (50 < = x < = 250), кратное пяти. выводится убывающая последовательность строк с числами формата: x x - 5 x - 10 50 то есть, нужно от данного числа составить последовательность с "интервалом" в 5. нельзя использовать массивы и цикл while. только for. заранее !
A:byte;
Begin
Write('Введите число, кратное 5 (50 <= Число <= 250): ');
ReadLn(A);
For A:= A downto 50 do
if A mod 5 = 0 then WriteLn(A);
End.