Question

Вывести числа, принадлежащие отрезку [A,B], кратные числу 3. В програме pascalABC, желательно с блок-схемой

Answer 1

Var
    a, b, i: integer;
begin
    read(a);
    read(b);
    for i := a to b do
         if i mod 3 = 0 then
            writeln(i);
end.

Answer 2

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

Блок-схема алгоритма:

Используя эту блок-схему, можно написать следующую программу на PascalABC:

pascalCopy code
program MultiplesOfThree;

var
  A, B, i: integer;

begin
  // Ввод границ отрезка
  write('Введите начало отрезка: ');
  readln(A);
  write('Введите конец отрезка: ');
  readln(B);
  
  // Вывод кратных трём чисел в заданном отрезке
  writeln('Числа, кратные трём в заданном отрезке:');
  for i := A to B do
  begin
    if (i mod 3 = 0) then // Проверяем, кратно ли число трём
    begin
      write(i, ' '); // Выводим число на экран
    end;
  end;
  
  readln; // Ждем нажатия клавиши Enter
end.

Пример работы программы:

Copy code
Введите начало отрезка: 10
Введите конец отрезка: 30
Числа, кратные трём в заданном отрезке:
12 15 18 21 24 27 30

Обратите внимание, что программа выводит числа через пробел. Если нужно вывести каждое число на новой строке, замените write(i, ' '); на writeln(i);.