Паскаль. Вводится целое число x (50 amp;lt;= x amp;lt;= 250), кратное

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

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

Задать свой вопрос
Stepan Kuparev
А циклы For и Repeat можно?
Алексей Горомыко
Только For
Ева Хрыкова
Такое решение подойдёт?
1 ответ
Var
A:byte;
Begin
Write('Введите число, кратное 5 (50 lt;= Число lt;= 250): ');
ReadLn(A);
For A:= A downto 50 do
    if A mod 5 = 0 then WriteLn(A);

End.
Лидия Виденичева
Спасибо! Подходит)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт