Question

Создать программу, которая выведет на экран числа от 1 до N, которые делятся на 3. N-целое число которое вводится с клавиатуры Язык Pascal.abc

Answer 1

Var n,i:integer;
begin
write('Введите n:');
readln(n);
for i:=1 to n do
if i mod 3=0 then writeln(i);
readln;
end.

Answer 2

Для создания программы, которая выводит на экран числа от 1 до N, которые делятся на 3, в языке Pascal, мы можем использовать цикл и условие. Вот пример кода:

program NumbersDivisibleByThree;

var
  N, i: Integer;

begin
  Write('Введите значение N: ');
  Readln(N);

for i := 1 to N do
  begin
    if i mod 3 = 0 then
      Writeln(i);
  end;

Readln;
end.

В этом примере мы используем переменные `N` и `i`. Переменная `N` предназначена для хранения введенного значения с клавиатуры, а переменная `i` используется в цикле для итерации от 1 до `N`.

Мы используем оператор `for` для создания цикла, который выполняется от 1 до `N`. Внутри цикла мы используем условную конструкцию `if` для проверки, делится ли текущее значение `i` на 3 без остатка (т.е. `i mod 3 = 0`). Если это условие выполняется, мы выводим значение `i` на экран с помощью процедуры `Writeln`.

В конце программы мы используем `Readln`, чтобы программа ожидала нажатия клавиши перед закрытием окна.

Вы можете скопировать этот код в среду разработки Pascal (например, Free Pascal) и запустить программу. После ввода значения `N`, программа выведет все числа от 1 до `N`, которые делятся на 3.

Примечание: Если вам нужно использовать другой язык программирования, дайте мне знать, и я смогу предоставить пример кода на соответствующем языке.