Question

Вывести все числа от 1 до 10000 оканчивающиеся на 8 и делящиеся на 3. На Паскале

Answer 1

Ответ:

Объяснение:

Ядро программы такое :

Begin

Var i: integer

for i=1 To 10000

If (i mod 10 := 8) and (i mod 3 :=0) then write i & "; " ;

Next i;

End.

Команда mod выводит остаток от деления i на число.

Остаток от деления на 10 это последняя цифра.

Если остаток от деления на 3 равен 0, то число делится на 3.

Answer 2

Вот пример кода на языке Pascal (Delphi), который выводит все числа от 1 до 10000, оканчивающиеся на 8 и делящиеся на 3:

pascalCopy code
program Numbers;

var
  i: integer;

begin
  for i := 1 to 10000 do
  begin
    if (i mod 10 = 8) and (i mod 3 = 0) then
      writeln(i);
  end;
end.

Эта программа использует цикл for для итерации от 1 до 10000. Внутри цикла проверяется, является ли текущее число i оканчивающимся на 8 (i mod 10 = 8) и делящимся на 3 (i mod 3 = 0). Если оба условия выполняются, число выводится на экран с помощью процедуры writeln.

Программа выводит следующие числа: 8 18 28 ... 9978