Pascal: Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые при делении на данное число K, дают в остатке число 4.

Pascal: Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые при делении на данное число K, дают в остатке число 4.
Гость
Ответ(ы) на вопрос:
Гость
Остаток при делении числа n на k есть результат операции n mod k var   a,b,i,k:integer; begin   Write('Укажите границы интервала [A;B]: '); Read(a,b);   Write('Задайте число k: '); Read(k);   Write('Отобранные числа: ');   for i:=a to b do     if i mod k =4 then Write(i,' ') end. Пример Укажите границы интервала [A;B]: 8 27 Задайте число k: 5 Отобранные числа: 9 14 19 24
Не нашли ответ?
Ответить на вопрос
Похожие вопросы