Question

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

Answer 1

Остаток при делении числа 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

Answer 2

Для решения этой задачи на языке Pascal можно использовать цикл, который будет перебирать все числа в заданном отрезке [A, B]. Затем, для каждого числа, проверять, даёт ли оно в остатке число 4 при делении на заданное число K.

program FindNumbers;
var
  A, B, K, i: Integer;
begin
  // Вводим значения A, B и K
  writeln('Введите значения A, B и K:');
  readln(A, B, K);
  
  // Перебираем числа от A до B
  for i := A to B do
  begin
    // Проверяем, дает ли число i в остатке 4 при делении на K
    if i mod K = 4 then
      writeln(i);
  end;
end.

В этом коде мы используем цикл `for` для перебора всех чисел от A до B. Для каждого числа, мы используем оператор `if` с условием `i mod K = 4`, чтобы проверить, даёт ли число i в остатке 4 при делении на K. Если условие выполняется, мы выводим число i.

Вы можете запустить эту программу в среде разработки Pascal или воспользоваться онлайн-компилятором для выполнения кода.