Question

Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). Напишите программу в Pascal

Answer 1

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

Пример:
a=10
b=20
12  15  18  

Answer 2

Вот пример программы на Pascal, которая выводит числа, кратные 3, в заданном интервале от a до b:

program PrintMultiplesOfThree;

var
  a, b, i: integer;

begin
  writeln('Введите значение a:');
  readln(a);
  
  writeln('Введите значение b:');
  readln(b);
  
  writeln('Числа, кратные 3, в интервале от ', a, ' до ', b, ':');
  
  for i := a to b do
  begin
    if i mod 3 = 0 then
      writeln(i);
  end;
  
  readln;
end.

В этой программе мы используем цикл `for`, чтобы перебрать все числа в заданном интервале от `a` до `b`. Затем мы проверяем, делится ли текущее число на 3 без остатка с помощью оператора `mod`. Если делится, то выводим это число на экран.

Например, если ввести `a = 1` и `b = 10`, программа выведет следующий результат:

Числа, кратные 3, в интервале от 1 до 10:
3
6
9

Обратите внимание, что ввод и вывод данных осуществляется с помощью процедур `readln` и `writeln`. Вы можете изменить программу, чтобы она соответствовала вашим потребностям.

Источник