Question

В интервале от 10 до 20 найти все числа,которые делятся на 3 без остатка.Паскаль.

Answer 1

Program abc;
var x,i:integer;
begin;
for x:=10 to 20 do
if x mod 3 = 0 then writeln (x);
end.

Answer 2

Для решения этой задачи на языке Паскаль можно использовать цикл, который будет перебирать числа в интервале от 10 до 20 и проверять их на делимость на 3 без остатка. Если число делится на 3 без остатка, оно будет добавлено в список чисел, удовлетворяющих условию.

Вот пример кода на Паскале, который решает данную задачу:

program FindDivisibleByThree;

var
  i: integer;
  divisibleNumbers: array of integer;
  count: integer;

begin
  count := 0;
  
  for i := 10 to 20 do
  begin
    if i mod 3 = 0 then
    begin
      SetLength(divisibleNumbers, count + 1);
      divisibleNumbers[count] := i;
      count := count + 1;
    end;
  end;
  
  writeln('Числа, которые делятся на 3 без остатка:');
  
  for i := 0 to count - 1 do
  begin
    writeln(divisibleNumbers[i]);
  end;
end.

В этом коде используется переменная `i`, которая представляет текущее число в интервале от 10 до 20. Оператор `mod` используется для проверки, делится ли число `i` на 3 без остатка. Если условие выполняется, число добавляется в массив `divisibleNumbers`, а переменная `count` увеличивается на 1. После завершения цикла, программа выводит список чисел, которые делятся на 3 без остатка.

Примечание: Язык Паскаль может немного отличаться в разных компиляторах. Убедитесь, что ваш компилятор поддерживает использование `writeln` для вывода на консоль и `mod` для нахождения остатка от деления.