Вывести числа из промежутка, кратные количеству заданных чисел - Pascal ABC
Формулировка задачи:
Вывести числа из промежутка [A,B] кратные количеству этих чисел. (Прощу , решать нужно через цикл.)
Решение задачи: «Вывести числа из промежутка, кратные количеству заданных чисел»
textual
Листинг программы
var
a, b: LongInt;
begin
Write('Input A='); ReadLn(a);
repeat
Write('Input B(>=', a, ')=');
ReadLn(b);
until (b >= a);
WriteLn('Answer: ', b - a + 1);
end.
Объяснение кода листинга программы
В данном коде происходит чтение двух чисел от пользователя, первое число присваивается переменной a, а второе - переменной b. Затем происходит проверка условия b >= a до тех пор, пока это условие не будет выполнено. После этого выводится ответ, который равен разности между b и a плюс 1.