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