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